/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Applications / OnAccount Demo / OnAccount / OA Brain

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 4f 41 20 42 72 61 | 69 6e 00 00 00 00 00 00 |..OA Bra|in......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 4f 41 61 72 57 43 6f | 61 01 00 00 00 00 00 00 |.OAarWCo|a.......|
|00000050| 00 00 00 00 00 60 00 00 | 01 9c 67 a9 45 b8 ac a9 |.....`..|..g.E...|
|00000060| d2 bf 51 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..Q.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 4e 77 00 00 |........|....Nw..|
|00000080| 00 00 42 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..B.STAK|........|
|00000090| 00 00 00 0a 00 00 60 00 | 00 00 42 00 00 00 00 00 |......`.|..B.....|
|000000a0| 00 00 00 00 00 00 00 01 | 00 00 0a 41 00 00 00 01 |........|...A....|
|000000b0| 00 00 0b a9 00 00 08 0d | 00 00 00 02 00 00 0b e0 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 05 00 00 10 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 02 10 80 00 02 10 80 00 | 00 00 00 00 01 10 80 01 |........|........|
|000000f0| e0 68 06 82 00 00 00 00 | 00 ad 00 80 01 25 01 c0 |.h......|.....%..|
|00000100| 00 00 00 00 03 66 02 80 | 00 00 00 00 00 00 00 00 |.....f..|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 0d 7e 00 00 0c 6a | 00 78 01 40 00 00 00 00 |...~...j|.x.@....|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 44 00 00 00 09 60 | 00 00 59 c0 00 00 02 80 |..D....`|..Y.....|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 2d 2d 20 73 63 72 69 70 | 74 20 6f 66 20 4f 41 20 |-- scrip|t of OA |
|00000690| 42 72 61 69 6e 20 73 74 | 61 63 6b 20 2d 2d 0d 0d |Brain st|ack --..|
|000006a0| 6f 6e 20 65 78 70 6f 72 | 74 44 61 74 61 4c 6f 67 |on expor|tDataLog|
|000006b0| 0d 20 20 70 75 73 68 20 | 63 64 0d 20 20 67 6f 20 |.  push |cd.  go |
|000006c0| 63 64 20 31 0d 20 20 61 | 6e 73 77 65 72 20 22 45 |cd 1.  a|nswer "E|
|000006d0| 78 70 6f 72 74 20 77 68 | 69 63 68 20 64 61 74 61 |xport wh|ich data|
|000006e0| 20 6c 6f 67 3f 22 20 77 | 69 74 68 20 22 43 61 6e | log?" w|ith "Can|
|000006f0| 63 65 6c 22 20 6f 72 20 | 22 46 69 6e 20 43 68 67 |cel" or |"Fin Chg|
|00000700| 22 20 6f 72 20 22 49 6e | 76 6f 69 63 65 22 0d 20 |" or "In|voice". |
|00000710| 20 70 75 74 20 69 74 20 | 69 6e 74 6f 20 77 68 69 | put it |into whi|
|00000720| 63 68 4c 6f 67 0d 20 20 | 69 66 20 77 68 69 63 68 |chLog.  |if which|
|00000730| 4c 6f 67 20 69 73 20 22 | 63 61 6e 63 65 6c 22 20 |Log is "|cancel" |
|00000740| 74 68 65 6e 0d 20 20 20 | 20 65 78 69 74 20 74 6f |then.   | exit to|
|00000750| 20 68 79 70 65 72 43 61 | 72 64 0d 20 20 65 6c 73 | hyperCa|rd.  els|
|00000760| 65 20 69 66 20 77 68 69 | 63 68 4c 6f 67 20 69 73 |e if whi|chLog is|
|00000770| 20 22 46 69 6e 20 43 68 | 67 22 20 74 68 65 6e 0d | "Fin Ch|g" then.|
|00000780| 20 20 20 20 0d 20 20 20 | 20 2d 2d 20 66 69 6e 61 |    .   | -- fina|
|00000790| 6e 63 65 43 68 61 72 67 | 65 4c 6f 67 20 66 6f 72 |nceCharg|eLog for|
|000007a0| 6d 61 74 3a 0d 20 20 20 | 20 2d 2d 20 64 61 74 65 |mat:.   | -- date|
|000007b0| 20 3c 74 61 62 3e 20 61 | 6d 6f 75 6e 74 0d 20 20 | <tab> a|mount.  |
|000007c0| 20 20 2d 2d 20 28 61 6d | 6f 75 6e 74 20 3d 20 74 |  -- (am|ount = t|
|000007d0| 6f 74 61 6c 20 6f 66 20 | 61 6c 6c 20 66 69 6e 61 |otal of |all fina|
|000007e0| 6e 63 65 20 63 68 61 72 | 67 65 73 20 66 6f 72 20 |nce char|ges for |
|000007f0| 61 20 70 61 72 74 69 63 | 75 6c 61 72 20 6d 6f 6e |a partic|ular mon|
|00000800| 74 68 29 0d 20 20 20 20 | 0d 20 20 20 20 70 75 74 |th).    |.    put|
|00000810| 20 22 46 69 6e 61 6e 63 | 65 20 43 68 61 72 67 65 | "Financ|e Charge|
|00000820| 20 4c 6f 67 22 20 26 20 | 72 65 74 75 72 6e 20 26 | Log" & |return &|
|00000830| 20 72 65 74 75 72 6e 20 | 26 20 22 44 61 74 65 22 | return |& "Date"|
|00000840| 20 26 20 74 61 62 20 26 | 20 22 46 69 6e 20 43 68 | & tab &| "Fin Ch|
|00000850| 67 73 22 20 26 c2 0d 20 | 20 20 20 72 65 74 75 72 |gs" &.. |   retur|
|00000860| 6e 20 26 20 72 65 74 75 | 72 6e 20 26 20 63 64 20 |n & retu|rn & cd |
|00000870| 66 6c 64 20 22 46 69 6e | 61 6e 63 65 43 68 61 72 |fld "Fin|anceChar|
|00000880| 67 65 4c 6f 67 22 20 6f | 66 20 63 64 20 22 64 65 |geLog" o|f cd "de|
|00000890| 6c 65 74 65 46 69 6e 61 | 6e 63 65 43 68 61 72 67 |leteFina|nceCharg|
|000008a0| 65 73 22 c2 0d 20 20 20 | 20 69 6e 74 6f 20 64 61 |es"..   | into da|
|000008b0| 74 61 4c 6f 67 0d 20 20 | 20 20 0d 20 20 65 6c 73 |taLog.  |  .  els|
|000008c0| 65 20 69 66 20 77 68 69 | 63 68 4c 6f 67 20 69 73 |e if whi|chLog is|
|000008d0| 20 22 49 6e 76 6f 69 63 | 65 22 20 74 68 65 6e 0d | "Invoic|e" then.|
|000008e0| 20 20 20 20 0d 20 20 20 | 20 2d 2d 20 49 6e 76 6f |    .   | -- Invo|
|000008f0| 69 63 65 4c 6f 67 20 66 | 6f 72 6d 61 74 3a 0d 20 |iceLog f|ormat:. |
|00000900| 20 20 20 2d 2d 20 49 6e | 76 6f 69 63 65 44 61 74 |   -- In|voiceDat|
|00000910| 65 20 3c 74 61 62 3e 20 | 49 6e 76 6f 69 63 65 4e |e <tab> |InvoiceN|
|00000920| 6f 20 3c 74 61 62 3e 20 | 41 63 63 6f 75 6e 74 4e |o <tab> |AccountN|
|00000930| 6f 20 3c 74 61 62 3e 20 | 73 74 61 74 65 53 61 6c |o <tab> |stateSal|
|00000940| 65 73 20 3c 74 61 62 3e | 20 6c 6f 63 61 6c 53 61 |es <tab>| localSa|
|00000950| 6c 65 73 20 3c 74 61 62 | 3e 20 c2 0d 20 20 20 20 |les <tab|> ..    |
|00000960| 2d 2d 20 53 75 62 74 6f | 74 61 6c 20 3c 74 61 62 |-- Subto|tal <tab|
|00000970| 3e 20 53 74 61 74 65 53 | 61 6c 65 73 54 61 78 20 |> StateS|alesTax |
|00000980| 3c 74 61 62 3e 20 4c 6f | 63 61 6c 53 61 6c 65 73 |<tab> Lo|calSales|
|00000990| 54 61 78 20 3c 74 61 62 | 3e 20 46 72 65 69 67 68 |Tax <tab|> Freigh|
|000009a0| 74 20 3c 74 61 62 3e 20 | 4d 69 73 63 20 3c 74 61 |t <tab> |Misc <ta|
|000009b0| 62 3e 20 47 72 61 6e 64 | 54 6f 74 61 6c 0d 20 20 |b> Grand|Total.  |
|000009c0| 20 20 0d 20 20 20 20 70 | 75 74 20 22 49 6e 76 6f |  .    p|ut "Invo|
|000009d0| 69 63 65 20 4c 6f 67 22 | 20 26 20 72 65 74 75 72 |ice Log"| & retur|
|000009e0| 6e 20 26 20 72 65 74 75 | 72 6e 20 26 20 22 44 61 |n & retu|rn & "Da|
|000009f0| 74 65 22 20 26 20 74 61 | 62 20 26 20 22 49 6e 76 |te" & ta|b & "Inv|
|00000a00| 6f 69 63 65 20 4e 6f 22 | 20 26 20 74 61 62 20 26 |oice No"| & tab &|
|00000a10| c2 0d 20 20 20 20 22 41 | 63 63 6f 75 6e 74 20 4e |..    "A|ccount N|
|00000a20| 6f 22 20 26 20 74 61 62 | 20 26 20 22 53 74 61 74 |o" & tab| & "Stat|
|00000a30| 65 20 53 61 6c 65 73 22 | 20 26 20 74 61 62 20 26 |e Sales"| & tab &|
|00000a40| 20 22 4c 6f 63 61 6c 20 | 53 61 6c 65 73 22 20 26 | "Local |Sales" &|
|00000a50| 20 74 61 62 20 26 20 22 | 53 75 62 74 6f 74 61 6c | tab & "|Subtotal|
|00000a60| 22 20 26 20 74 61 62 20 | 26 c2 0d 20 20 20 20 22 |" & tab |&..    "|
|00000a70| 53 74 61 74 65 20 53 61 | 6c 65 73 20 54 61 78 22 |State Sa|les Tax"|
|00000a80| 20 26 20 74 61 62 20 26 | 20 22 4c 6f 63 61 6c 20 | & tab &| "Local |
|00000a90| 53 61 6c 65 73 20 54 61 | 78 22 20 26 20 74 61 62 |Sales Ta|x" & tab|
|00000aa0| 20 26 20 22 46 72 65 69 | 67 68 74 22 20 26 20 74 | & "Frei|ght" & t|
|00000ab0| 61 62 20 26 20 22 4d 69 | 73 63 22 20 26 20 74 61 |ab & "Mi|sc" & ta|
|00000ac0| 62 20 26 c2 0d 20 20 20 | 20 22 47 72 61 6e 64 20 |b &..   | "Grand |
|00000ad0| 54 6f 74 61 6c 22 20 26 | 20 72 65 74 75 72 6e 20 |Total" &| return |
|00000ae0| 26 20 72 65 74 75 72 6e | 20 26 20 66 6c 64 20 22 |& return| & fld "|
|00000af0| 49 6e 76 6f 69 63 65 4c | 6f 67 22 20 6f 66 20 63 |InvoiceL|og" of c|
|00000b00| 64 20 31 20 69 6e 74 6f | 20 64 61 74 61 4c 6f 67 |d 1 into| dataLog|
|00000b10| 0d 20 20 65 6e 64 20 69 | 66 0d 20 20 61 6e 73 77 |.  end i|f.  answ|
|00000b20| 65 72 20 22 45 78 70 6f | 72 74 20 77 68 65 72 65 |er "Expo|rt where|
|00000b30| 3f 22 20 77 69 74 68 20 | 22 43 6c 69 70 62 6f 61 |?" with |"Clipboa|
|00000b40| 72 64 22 20 6f 72 20 22 | 54 65 78 74 20 46 69 6c |rd" or "|Text Fil|
|00000b50| 65 22 0d 20 20 69 66 20 | 69 74 20 69 73 20 22 43 |e".  if |it is "C|
|00000b60| 6c 69 70 62 6f 61 72 64 | 22 20 74 68 65 6e 0d 20 |lipboard|" then. |
|00000b70| 20 20 20 6c 6f 63 6b 20 | 73 63 72 65 65 6e 0d 20 |   lock |screen. |
|00000b80| 20 20 20 70 75 74 20 64 | 61 74 61 4c 6f 67 20 69 |   put d|ataLog i|
|00000b90| 6e 74 6f 20 66 6c 64 20 | 22 4c 69 73 74 42 61 63 |nto fld |"ListBac|
|00000ba0| 6b 64 72 6f 70 31 22 0d | 20 20 20 20 73 68 6f 77 |kdrop1".|    show|
|00000bb0| 20 66 6c 64 20 22 4c 69 | 73 74 42 61 63 6b 64 72 | fld "Li|stBackdr|
|00000bc0| 6f 70 31 22 0d 20 20 20 | 20 73 65 6c 65 63 74 20 |op1".   | select |
|00000bd0| 74 65 78 74 20 6f 66 20 | 66 6c 64 20 22 4c 69 73 |text of |fld "Lis|
|00000be0| 74 42 61 63 6b 64 72 6f | 70 31 22 0d 20 20 20 20 |tBackdro|p1".    |
|00000bf0| 73 65 6e 64 20 22 64 6f | 6d 65 6e 75 20 63 6f 70 |send "do|menu cop|
|00000c00| 79 20 74 65 78 74 22 20 | 74 6f 20 68 79 70 65 72 |y text" |to hyper|
|00000c10| 43 61 72 64 0d 20 20 20 | 20 68 69 64 65 20 66 6c |Card.   | hide fl|
|00000c20| 64 20 22 4c 69 73 74 42 | 61 63 6b 64 72 6f 70 31 |d "ListB|ackdrop1|
|00000c30| 22 0d 20 20 20 20 70 75 | 74 20 22 22 20 69 6e 74 |".    pu|t "" int|
|00000c40| 6f 20 66 6c 64 20 22 4c | 69 73 74 42 61 63 6b 64 |o fld "L|istBackd|
|00000c50| 72 6f 70 31 22 0d 20 20 | 20 20 75 6e 6c 6f 63 6b |rop1".  |  unlock|
|00000c60| 20 73 63 72 65 65 6e 0d | 20 20 20 20 61 6e 73 77 | screen.|    answ|
|00000c70| 65 72 20 77 68 69 63 68 | 4c 6f 67 20 26 26 20 22 |er which|Log && "|
|00000c80| 4c 6f 67 20 73 75 63 63 | 65 73 73 66 75 6c 6c 79 |Log succ|essfully|
|00000c90| 20 65 78 70 6f 72 74 65 | 64 20 74 6f 20 74 68 65 | exporte|d to the|
|00000ca0| 20 43 6c 69 70 62 6f 61 | 72 64 2e 22 0d 20 20 65 | Clipboa|rd.".  e|
|00000cb0| 6c 73 65 20 69 66 20 69 | 74 20 69 73 20 22 54 65 |lse if i|t is "Te|
|00000cc0| 78 74 20 46 69 6c 65 22 | 20 74 68 65 6e 0d 20 20 |xt File"| then.  |
|00000cd0| 20 20 61 73 6b 20 66 69 | 6c 65 20 22 53 61 76 65 |  ask fi|le "Save|
|00000ce0| 20 64 61 74 61 20 66 69 | 6c 65 20 61 73 2e 2e 2e | data fi|le as...|
|00000cf0| 22 20 77 69 74 68 20 22 | 4f 41 22 20 26 26 20 77 |" with "|OA" && w|
|00000d00| 68 69 63 68 4c 6f 67 20 | 26 26 c2 0d 20 20 20 20 |hichLog |&&..    |
|00000d10| 22 4c 6f 67 22 20 26 26 | 20 22 28 22 20 26 20 74 |"Log" &&| "(" & t|
|00000d20| 68 65 44 61 74 65 28 29 | 20 26 20 22 29 22 0d 20 |heDate()| & ")". |
|00000d30| 20 20 20 69 66 20 69 74 | 20 69 73 20 65 6d 70 74 |   if it| is empt|
|00000d40| 79 20 74 68 65 6e 20 65 | 78 69 74 20 74 6f 20 68 |y then e|xit to h|
|00000d50| 79 70 65 72 43 61 72 64 | 0d 20 20 20 20 70 75 74 |yperCard|.    put|
|00000d60| 20 69 74 20 69 6e 74 6f | 20 66 69 6c 65 6e 61 6d | it into| filenam|
|00000d70| 65 0d 20 20 20 20 6f 70 | 65 6e 20 66 69 6c 65 20 |e.    op|en file |
|00000d80| 66 69 6c 65 6e 61 6d 65 | 0d 20 20 20 20 77 72 69 |filename|.    wri|
|00000d90| 74 65 20 64 61 74 61 4c | 6f 67 20 74 6f 20 66 69 |te dataL|og to fi|
|00000da0| 6c 65 20 66 69 6c 65 6e | 61 6d 65 0d 20 20 20 20 |le filen|ame.    |
|00000db0| 63 6c 6f 73 65 20 66 69 | 6c 65 20 66 69 6c 65 6e |close fi|le filen|
|00000dc0| 61 6d 65 0d 20 20 20 20 | 61 6e 73 77 65 72 20 77 |ame.    |answer w|
|00000dd0| 68 69 63 68 4c 6f 67 20 | 26 26 20 22 4c 6f 67 20 |hichLog |&& "Log |
|00000de0| 73 75 63 63 65 73 73 66 | 75 6c 6c 79 20 65 78 70 |successf|ully exp|
|00000df0| 6f 72 74 65 64 20 74 6f | 20 74 65 78 74 20 66 69 |orted to| text fi|
|00000e00| 6c 65 3a 22 20 26 26 c2 | 0d 20 20 20 20 66 69 6c |le:" &&.|.    fil|
|00000e10| 65 6e 61 6d 65 20 26 20 | 22 2e 22 0d 20 20 65 6e |ename & |".".  en|
|00000e20| 64 20 69 66 0d 65 6e 64 | 20 65 78 70 6f 72 74 44 |d if.end| exportD|
|00000e30| 61 74 61 4c 6f 67 0d 0d | 6f 6e 20 70 72 69 6e 74 |ataLog..|on print|
|00000e40| 41 64 64 72 65 73 73 4c | 61 62 65 6c 73 0d 20 20 |AddressL|abels.  |
|00000e50| 61 6e 73 77 65 72 20 22 | 50 72 69 6e 74 20 63 75 |answer "|Print cu|
|00000e60| 73 74 6f 6d 65 72 20 61 | 64 64 72 65 73 73 20 6c |stomer a|ddress l|
|00000e70| 61 62 65 6c 73 3f 22 20 | 26 20 72 65 74 75 72 6e |abels?" |& return|
|00000e80| 20 26 20 72 65 74 75 72 | 6e 20 26 c2 0d 20 20 22 | & retur|n &..  "|
|00000e90| 28 4e 4f 54 45 3a 20 54 | 6f 20 6f 70 74 69 6d 69 |(NOTE: T|o optimi|
|00000ea0| 7a 65 20 6c 61 62 65 6c | 20 73 70 61 63 65 2c 20 |ze label| space, |
|00000eb0| 74 68 65 20 73 65 63 6f | 6e 64 20 6c 69 6e 65 20 |the seco|nd line |
|00000ec0| 6f 66 20 36 2d 6c 69 6e | 65 22 26 26 c2 0d 20 20 |of 6-lin|e"&&..  |
|00000ed0| 22 61 64 64 72 65 73 73 | 65 73 20 77 69 6c 6c 20 |"address|es will |
|00000ee0| 6e 6f 74 20 70 72 69 6e | 74 20 6f 6e 20 61 64 64 |not prin|t on add|
|00000ef0| 72 65 73 73 20 6c 61 62 | 65 6c 73 2e 20 20 53 68 |ress lab|els.  Sh|
|00000f00| 6f 72 74 65 72 20 61 64 | 64 72 65 73 73 65 73 22 |orter ad|dresses"|
|00000f10| 26 26 c2 0d 20 20 22 77 | 69 6c 6c 20 70 72 69 6e |&&..  "w|ill prin|
|00000f20| 74 20 61 6c 6c 20 6c 69 | 6e 65 73 2e 29 22 20 77 |t all li|nes.)" w|
|00000f30| 69 74 68 20 22 43 61 6e | 63 65 6c 22 20 6f 72 20 |ith "Can|cel" or |
|00000f40| 22 4f 4b 22 0d 20 20 69 | 66 20 69 74 20 69 73 20 |"OK".  i|f it is |
|00000f50| 22 4f 4b 22 20 74 68 65 | 6e 0d 20 20 20 20 70 75 |"OK" the|n.    pu|
|00000f60| 73 68 20 63 61 72 64 0d | 20 20 20 20 67 6f 20 66 |sh card.|    go f|
|00000f70| 69 72 73 74 20 63 61 72 | 64 20 6f 66 20 62 67 20 |irst car|d of bg |
|00000f80| 22 63 75 73 74 6f 6d 65 | 72 46 69 6c 65 22 0d 20 |"custome|rFile". |
|00000f90| 20 20 20 61 6e 73 77 65 | 72 20 22 50 72 69 6e 74 |   answe|r "Print|
|00000fa0| 20 6c 61 62 65 6c 73 20 | 66 6f 72 20 77 68 69 63 | labels |for whic|
|00000fb0| 68 20 61 63 63 6f 75 6e | 74 73 3f 22 20 77 69 74 |h accoun|ts?" wit|
|00000fc0| 68 20 22 41 6c 6c 22 20 | 6f 72 20 22 4d 61 72 6b |h "All" |or "Mark|
|00000fd0| 65 64 22 20 6f 72 20 22 | 53 74 61 74 65 6d 65 6e |ed" or "|Statemen|
|00000fe0| 74 22 0d 20 20 20 20 6c | 6f 63 6b 20 73 63 72 65 |t".    l|ock scre|
|00000ff0| 65 6e 0d 20 20 20 20 75 | 6e 6d 61 72 6b 20 61 6c |en.    u|nmark al|
|00001000| 6c 20 63 61 72 64 73 0d | 20 20 20 20 72 65 70 65 |l cards.|    repe|
|00001010| 61 74 20 66 6f 72 20 74 | 68 65 20 6e 75 6d 62 65 |at for t|he numbe|
|00001020| 72 20 6f 66 20 63 61 72 | 64 73 20 6f 66 20 74 68 |r of car|ds of th|
|00001030| 69 73 20 62 67 0d 20 20 | 20 20 20 20 69 66 20 69 |is bg.  |    if i|
|00001040| 74 20 69 73 20 22 61 6c | 6c 22 20 74 68 65 6e 0d |t is "al|l" then.|
|00001050| 20 20 20 20 20 20 20 20 | 73 65 74 20 6d 61 72 6b |        |set mark|
|00001060| 65 64 20 6f 66 20 74 68 | 69 73 20 63 61 72 64 20 |ed of th|is card |
|00001070| 74 6f 20 74 72 75 65 0d | 20 20 20 20 20 20 65 6c |to true.|      el|
|00001080| 73 65 20 69 66 20 69 74 | 20 69 73 20 22 6d 61 72 |se if it| is "mar|
|00001090| 6b 65 64 22 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |ked" the|n.      |
|000010a0| 20 20 69 66 20 68 69 6c | 69 74 65 20 6f 66 20 62 |  if hil|ite of b|
|000010b0| 67 20 62 74 6e 20 22 70 | 72 69 6e 74 20 6c 61 62 |g btn "p|rint lab|
|000010c0| 65 6c 22 20 69 73 20 74 | 72 75 65 20 74 68 65 6e |el" is t|rue then|
|000010d0| 0d 20 20 20 20 20 20 20 | 20 20 20 73 65 74 20 6d |.       |   set m|
|000010e0| 61 72 6b 65 64 20 6f 66 | 20 74 68 69 73 20 63 61 |arked of| this ca|
|000010f0| 72 64 20 74 6f 20 74 72 | 75 65 0d 20 20 20 20 20 |rd to tr|ue.     |
|00001100| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 20 20 |   end i|f.      |
|00001110| 65 6c 73 65 20 69 66 20 | 69 74 20 69 73 20 22 73 |else if |it is "s|
|00001120| 74 61 74 65 6d 65 6e 74 | 22 20 74 68 65 6e 0d 20 |tatement|" then. |
|00001130| 20 20 20 20 20 20 20 69 | 66 20 68 69 6c 69 74 65 |       i|f hilite|
|00001140| 20 6f 66 20 62 67 20 62 | 74 6e 20 22 70 72 69 6e | of bg b|tn "prin|
|00001150| 74 20 73 74 61 74 65 6d | 65 6e 74 73 22 20 69 73 |t statem|ents" is|
|00001160| 20 74 72 75 65 20 74 68 | 65 6e 0d 20 20 20 20 20 | true th|en.     |
|00001170| 20 20 20 20 20 69 66 20 | 66 6c 64 20 22 74 6f 74 |     if |fld "tot|
|00001180| 61 6c 41 6d 6f 75 6e 74 | 44 75 65 22 20 3e 20 30 |alAmount|Due" > 0|
|00001190| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 20 20 20 20 | then.  |        |
|000011a0| 20 20 73 65 74 20 6d 61 | 72 6b 65 64 20 6f 66 20 |  set ma|rked of |
|000011b0| 74 68 69 73 20 63 61 72 | 64 20 74 6f 20 74 72 75 |this car|d to tru|
|000011c0| 65 0d 20 20 20 20 20 20 | 20 20 20 20 65 6e 64 20 |e.      |    end |
|000011d0| 69 66 0d 20 20 20 20 20 | 20 20 20 65 6e 64 20 69 |if.     |   end i|
|000011e0| 66 0d 20 20 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |f.      |end if. |
|000011f0| 20 20 20 20 20 67 6f 20 | 6e 65 78 74 20 63 61 72 |     go |next car|
|00001200| 64 20 6f 66 20 74 68 69 | 73 20 62 67 0d 20 20 20 |d of thi|s bg.   |
|00001210| 20 65 6e 64 20 72 65 70 | 65 61 74 0d 20 20 20 20 | end rep|eat.    |
|00001220| 75 6e 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 20 20 |unlock s|creen.  |
|00001230| 20 20 61 6e 73 77 65 72 | 20 22 54 68 65 72 65 20 |  answer| "There |
|00001240| 61 72 65 22 20 26 26 20 | 74 68 65 20 6e 75 6d 62 |are" && |the numb|
|00001250| 65 72 20 6f 66 20 6d 61 | 72 6b 65 64 20 63 61 72 |er of ma|rked car|
|00001260| 64 73 20 26 26 20 22 6c | 61 62 65 6c 73 20 74 6f |ds && "l|abels to|
|00001270| 20 70 72 69 6e 74 2e 22 | 20 77 69 74 68 c2 0d 20 | print."| with.. |
|00001280| 20 20 20 22 43 61 6e 63 | 65 6c 22 20 6f 72 20 22 |   "Canc|el" or "|
|00001290| 50 72 69 6e 74 22 0d 20 | 20 20 20 69 66 20 69 74 |Print". |   if it|
|000012a0| 20 69 73 20 22 70 72 69 | 6e 74 22 20 74 68 65 6e | is "pri|nt" then|
|000012b0| 0d 20 20 20 20 20 20 6c | 6f 63 6b 20 73 63 72 65 |.      l|ock scre|
|000012c0| 65 6e 0d 20 20 20 20 20 | 20 69 66 20 68 69 6c 69 |en.     | if hili|
|000012d0| 74 65 20 6f 66 20 62 74 | 6e 20 22 33 30 2d 75 70 |te of bt|n "30-up|
|000012e0| 20 73 68 65 65 74 73 22 | 20 6f 66 20 63 61 72 64 | sheets"| of card|
|000012f0| 20 22 70 72 65 66 65 72 | 65 6e 63 65 73 33 22 20 | "prefer|ences3" |
|00001300| 74 68 65 6e 0d 20 20 20 | 20 20 20 20 20 6f 70 65 |then.   |     ope|
|00001310| 6e 20 72 65 70 6f 72 74 | 20 70 72 69 6e 74 69 6e |n report| printin|
|00001320| 67 20 77 69 74 68 20 74 | 65 6d 70 6c 61 74 65 20 |g with t|emplate |
|00001330| 22 33 30 2d 55 70 20 53 | 68 65 65 74 73 22 0d 20 |"30-Up S|heets". |
|00001340| 20 20 20 20 20 65 6c 73 | 65 0d 20 20 20 20 20 20 |     els|e.      |
|00001350| 20 20 6f 70 65 6e 20 72 | 65 70 6f 72 74 20 70 72 |  open r|eport pr|
|00001360| 69 6e 74 69 6e 67 20 77 | 69 74 68 20 74 65 6d 70 |inting w|ith temp|
|00001370| 6c 61 74 65 20 22 43 6f | 6e 74 69 6e 75 6f 75 73 |late "Co|ntinuous|
|00001380| 20 46 65 65 64 22 0d 20 | 20 20 20 20 20 65 6e 64 | Feed". |     end|
|00001390| 20 69 66 0d 20 20 20 20 | 20 20 70 72 69 6e 74 20 | if.    |  print |
|000013a0| 6d 61 72 6b 65 64 20 63 | 61 72 64 73 0d 20 20 20 |marked c|ards.   |
|000013b0| 20 20 20 63 6c 6f 73 65 | 20 70 72 69 6e 74 69 6e |   close| printin|
|000013c0| 67 0d 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 |g.    en|d if.   |
|000013d0| 20 70 6f 70 20 63 61 72 | 64 0d 20 20 65 6e 64 20 | pop car|d.  end |
|000013e0| 69 66 0d 65 6e 64 20 70 | 72 69 6e 74 41 64 64 72 |if.end p|rintAddr|
|000013f0| 65 73 73 4c 61 62 65 6c | 73 0d 0d 66 75 6e 63 74 |essLabel|s..funct|
|00001400| 69 6f 6e 20 66 6f 72 6d | 61 74 41 64 64 72 65 73 |ion form|atAddres|
|00001410| 73 4c 61 62 65 6c 0d 20 | 20 67 65 74 20 66 6c 64 |sLabel. | get fld|
|00001420| 20 22 63 75 73 74 6f 6d | 65 72 22 0d 20 20 69 66 | "custom|er".  if|
|00001430| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 6c | the num|ber of l|
|00001440| 69 6e 65 73 20 6f 66 20 | 69 74 20 3e 20 35 20 74 |ines of |it > 5 t|
|00001450| 68 65 6e 0d 20 20 20 20 | 64 65 6c 65 74 65 20 6c |hen.    |delete l|
|00001460| 69 6e 65 20 32 20 6f 66 | 20 69 74 0d 20 20 65 6e |ine 2 of| it.  en|
|00001470| 64 20 69 66 0d 20 20 72 | 65 74 75 72 6e 20 69 74 |d if.  r|eturn it|
|00001480| 0d 65 6e 64 20 66 6f 72 | 6d 61 74 41 64 64 72 65 |.end for|matAddre|
|00001490| 73 73 4c 61 62 65 6c 0d | 0d 6f 6e 20 70 72 69 6e |ssLabel.|.on prin|
|000014a0| 74 43 75 73 74 6f 6d 65 | 72 4c 69 73 74 0d 20 20 |tCustome|rList.  |
|000014b0| 61 6e 73 77 65 72 20 22 | 50 72 69 6e 74 20 63 75 |answer "|Print cu|
|000014c0| 73 74 6f 6d 65 72 20 6c | 69 73 74 3f 22 20 77 69 |stomer l|ist?" wi|
|000014d0| 74 68 20 22 43 61 6e 63 | 65 6c 22 20 6f 72 20 22 |th "Canc|el" or "|
|000014e0| 4f 4b 22 0d 20 20 69 66 | 20 69 74 20 69 73 20 22 |OK".  if| it is "|
|000014f0| 4f 4b 22 20 74 68 65 6e | 0d 20 20 20 20 70 75 73 |OK" then|.    pus|
|00001500| 68 20 63 61 72 64 0d 20 | 20 20 20 67 6f 20 66 69 |h card. |   go fi|
|00001510| 72 73 74 20 63 61 72 64 | 20 6f 66 20 62 67 20 22 |rst card| of bg "|
|00001520| 63 75 73 74 6f 6d 65 72 | 46 69 6c 65 22 0d 20 20 |customer|File".  |
|00001530| 20 20 61 6e 73 77 65 72 | 20 22 4f 72 67 61 6e 69 |  answer| "Organi|
|00001540| 7a 65 20 63 75 73 74 6f | 6d 65 72 20 6c 69 73 74 |ze custo|mer list|
|00001550| 20 62 79 2e 2e 2e 22 20 | 77 69 74 68 20 22 41 63 | by..." |with "Ac|
|00001560| 63 74 20 4e 6f 22 20 6f | 72 20 22 4e 61 6d 65 22 |ct No" o|r "Name"|
|00001570| 0d 20 20 20 20 69 66 20 | 69 74 20 69 73 20 22 61 |.    if |it is "a|
|00001580| 63 63 74 20 6e 6f 22 20 | 74 68 65 6e 0d 20 20 20 |cct no" |then.   |
|00001590| 20 20 20 6f 70 65 6e 20 | 72 65 70 6f 72 74 20 70 |   open |report p|
|000015a0| 72 69 6e 74 69 6e 67 20 | 77 69 74 68 20 74 65 6d |rinting |with tem|
|000015b0| 70 6c 61 74 65 20 22 43 | 75 73 74 4c 69 73 74 42 |plate "C|ustListB|
|000015c0| 79 41 63 63 74 4e 6f 22 | 0d 20 20 20 20 65 6c 73 |yAcctNo"|.    els|
|000015d0| 65 0d 20 20 20 20 20 20 | 6f 70 65 6e 20 72 65 70 |e.      |open rep|
|000015e0| 6f 72 74 20 70 72 69 6e | 74 69 6e 67 20 77 69 74 |ort prin|ting wit|
|000015f0| 68 20 74 65 6d 70 6c 61 | 74 65 20 22 43 75 73 74 |h templa|te "Cust|
|00001600| 4c 69 73 74 42 79 41 63 | 63 74 4e 61 6d 65 22 0d |ListByAc|ctName".|
|00001610| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 70 |    end |if.    p|
|00001620| 72 69 6e 74 20 74 68 69 | 73 20 63 61 72 64 0d 20 |rint thi|s card. |
|00001630| 20 20 20 63 6c 6f 73 65 | 20 70 72 69 6e 74 69 6e |   close| printin|
|00001640| 67 0d 20 20 20 20 70 6f | 70 20 63 61 72 64 0d 20 |g.    po|p card. |
|00001650| 20 65 6e 64 20 69 66 0d | 65 6e 64 20 70 72 69 6e | end if.|end prin|
|00001660| 74 43 75 73 74 6f 6d 65 | 72 4c 69 73 74 0d 0d 6f |tCustome|rList..o|
|00001670| 6e 20 70 72 69 6e 74 49 | 6e 76 65 6e 74 6f 72 79 |n printI|nventory|
|00001680| 4c 69 73 74 0d 20 20 61 | 6e 73 77 65 72 20 22 50 |List.  a|nswer "P|
|00001690| 72 69 6e 74 20 74 68 65 | 20 69 6e 76 65 6e 74 6f |rint the| invento|
|000016a0| 72 79 20 6c 69 73 74 3f | 22 20 77 69 74 68 20 22 |ry list?|" with "|
|000016b0| 43 61 6e 63 65 6c 22 20 | 6f 72 20 22 50 72 69 6e |Cancel" |or "Prin|
|000016c0| 74 22 0d 20 20 69 66 20 | 69 74 20 69 73 20 22 63 |t".  if |it is "c|
|000016d0| 61 6e 63 65 6c 22 20 74 | 68 65 6e 20 65 78 69 74 |ancel" t|hen exit|
|000016e0| 20 74 6f 20 68 79 70 65 | 72 43 61 72 64 0d 20 20 | to hype|rCard.  |
|000016f0| 61 6e 73 77 65 72 20 22 | 4f 72 67 61 6e 69 7a 65 |answer "|Organize|
|00001700| 20 6c 69 73 74 20 62 79 | 20 6e 61 6d 65 20 6f 72 | list by| name or|
|00001710| 20 69 74 65 6d 20 49 44 | 3f 22 c2 0d 20 20 77 69 | item ID|?"..  wi|
|00001720| 74 68 20 22 4e 61 6d 65 | 22 20 6f 72 20 22 49 74 |th "Name|" or "It|
|00001730| 65 6d 20 49 44 22 0d 20 | 20 69 66 20 69 74 20 69 |em ID". | if it i|
|00001740| 73 20 22 49 74 65 6d 20 | 49 44 22 20 74 68 65 6e |s "Item |ID" then|
|00001750| 0d 20 20 20 20 70 75 74 | 20 66 6c 64 20 22 49 6e |.    put| fld "In|
|00001760| 76 65 6e 74 6f 72 79 4c | 69 73 74 22 20 6f 66 20 |ventoryL|ist" of |
|00001770| 63 64 20 31 20 6f 66 20 | 62 67 20 34 20 69 6e 74 |cd 1 of |bg 4 int|
|00001780| 6f 20 69 6e 76 65 6e 74 | 6f 72 79 4c 69 73 74 0d |o invent|oryList.|
|00001790| 20 20 65 6c 73 65 0d 20 | 20 20 20 70 75 74 20 66 |  else. |   put f|
|000017a0| 6c 64 20 22 49 6e 76 65 | 6e 74 6f 72 79 4c 69 73 |ld "Inve|ntoryLis|
|000017b0| 74 32 22 20 6f 66 20 63 | 64 20 31 20 6f 66 20 62 |t2" of c|d 1 of b|
|000017c0| 67 20 34 20 69 6e 74 6f | 20 69 6e 76 65 6e 74 6f |g 4 into| invento|
|000017d0| 72 79 4c 69 73 74 0d 20 | 20 65 6e 64 20 69 66 0d |ryList. | end if.|
|000017e0| 20 20 70 75 74 20 22 49 | 6e 76 65 6e 74 6f 72 79 |  put "I|nventory|
|000017f0| 20 4c 69 73 74 22 20 26 | 20 22 20 20 20 20 20 22 | List" &| "     "|
|00001800| 20 26 20 74 68 65 44 61 | 74 65 28 29 20 26 20 72 | & theDa|te() & r|
|00001810| 65 74 75 72 6e 20 26 20 | 72 65 74 75 72 6e c2 0d |eturn & |return..|
|00001820| 20 20 62 65 66 6f 72 65 | 20 69 6e 76 65 6e 74 6f |  before| invento|
|00001830| 72 79 4c 69 73 74 0d 20 | 20 72 65 73 65 74 20 70 |ryList. | reset p|
|00001840| 72 69 6e 74 69 6e 67 0d | 20 20 73 65 74 20 70 72 |rinting.|  set pr|
|00001850| 69 6e 74 54 65 78 74 46 | 6f 6e 74 20 74 6f 20 22 |intTextF|ont to "|
|00001860| 68 65 6c 76 65 74 69 63 | 61 22 0d 20 20 73 65 74 |helvetic|a".  set|
|00001870| 20 70 72 69 6e 74 54 65 | 78 74 53 69 7a 65 20 74 | printTe|xtSize t|
|00001880| 6f 20 31 30 0d 20 20 73 | 65 74 20 70 72 69 6e 74 |o 10.  s|et print|
|00001890| 54 65 78 74 48 65 69 67 | 68 74 20 74 6f 20 32 30 |TextHeig|ht to 20|
|000018a0| 0d 20 20 73 65 74 20 70 | 72 69 6e 74 54 65 78 74 |.  set p|rintText|
|000018b0| 53 74 79 6c 65 20 74 6f | 20 70 6c 61 69 6e 0d 20 |Style to| plain. |
|000018c0| 20 73 65 74 20 70 72 69 | 6e 74 4d 61 72 67 69 6e | set pri|ntMargin|
|000018d0| 73 20 74 6f 20 35 30 2c | 35 30 2c 35 30 2c 35 30 |s to 50,|50,50,50|
|000018e0| 0d 20 20 70 72 69 6e 74 | 20 69 6e 76 65 6e 74 6f |.  print| invento|
|000018f0| 72 79 4c 69 73 74 0d 65 | 6e 64 20 70 72 69 6e 74 |ryList.e|nd print|
|00001900| 49 6e 76 65 6e 74 6f 72 | 79 4c 69 73 74 0d 0d 66 |Inventor|yList..f|
|00001910| 75 6e 63 74 69 6f 6e 20 | 61 6d 6f 75 6e 74 43 68 |unction |amountCh|
|00001920| 65 63 6b 20 73 74 72 69 | 6e 67 0d 20 20 72 65 70 |eck stri|ng.  rep|
|00001930| 65 61 74 20 77 69 74 68 | 20 69 20 3d 20 6e 75 6d |eat with| i = num|
|00001940| 62 65 72 20 6f 66 20 63 | 68 61 72 73 20 6f 66 20 |ber of c|hars of |
|00001950| 73 74 72 69 6e 67 20 64 | 6f 77 6e 20 74 6f 20 31 |string d|own to 1|
|00001960| 0d 20 20 20 20 69 66 20 | 63 68 61 72 20 69 20 6f |.    if |char i o|
|00001970| 66 20 73 74 72 69 6e 67 | 20 69 73 20 6e 6f 74 20 |f string| is not |
|00001980| 69 6e 20 22 31 32 33 34 | 35 36 37 38 39 30 2e 2d |in "1234|567890.-|
|00001990| 22 20 74 68 65 6e 0d 20 | 20 20 20 20 20 64 65 6c |" then. |     del|
|000019a0| 65 74 65 20 63 68 61 72 | 20 69 20 6f 66 20 73 74 |ete char| i of st|
|000019b0| 72 69 6e 67 0d 20 20 20 | 20 65 6e 64 20 69 66 0d |ring.   | end if.|
|000019c0| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0d 20 20 69 |  end re|peat.  i|
|000019d0| 66 20 73 74 72 69 6e 67 | 20 69 73 20 65 6d 70 74 |f string| is empt|
|000019e0| 79 20 74 68 65 6e 20 72 | 65 74 75 72 6e 20 66 61 |y then r|eturn fa|
|000019f0| 6c 73 65 0d 20 20 73 65 | 74 20 6e 75 6d 62 65 72 |lse.  se|t number|
|00001a00| 46 6f 72 6d 61 74 20 74 | 6f 20 22 30 2e 30 30 22 |Format t|o "0.00"|
|00001a10| 0d 20 20 72 65 74 75 72 | 6e 20 28 73 74 72 69 6e |.  retur|n (strin|
|00001a20| 67 20 2a 20 31 29 0d 65 | 6e 64 20 61 6d 6f 75 6e |g * 1).e|nd amoun|
|00001a30| 74 43 68 65 63 6b 0d 0d | 66 75 6e 63 74 69 6f 6e |tCheck..|function|
|00001a40| 20 71 75 61 6e 43 68 65 | 63 6b 20 73 74 72 69 6e | quanChe|ck strin|
|00001a50| 67 0d 20 20 69 66 20 73 | 74 72 69 6e 67 20 69 73 |g.  if s|tring is|
|00001a60| 20 65 6d 70 74 79 20 74 | 68 65 6e 0d 20 20 20 20 | empty t|hen.    |
|00001a70| 72 65 74 75 72 6e 20 66 | 61 6c 73 65 0d 20 20 65 |return f|alse.  e|
|00001a80| 6e 64 20 69 66 0d 20 20 | 72 65 70 65 61 74 20 77 |nd if.  |repeat w|
|00001a90| 69 74 68 20 69 20 3d 20 | 6e 75 6d 62 65 72 20 6f |ith i = |number o|
|00001aa0| 66 20 63 68 61 72 73 20 | 6f 66 20 73 74 72 69 6e |f chars |of strin|
|00001ab0| 67 20 64 6f 77 6e 20 74 | 6f 20 31 0d 20 20 20 20 |g down t|o 1.    |
|00001ac0| 69 66 20 63 68 61 72 20 | 69 20 6f 66 20 73 74 72 |if char |i of str|
|00001ad0| 69 6e 67 20 69 73 20 22 | 2c 22 20 74 68 65 6e 0d |ing is "|," then.|
|00001ae0| 20 20 20 20 20 20 64 65 | 6c 65 74 65 20 63 68 61 |      de|lete cha|
|00001af0| 72 20 69 20 6f 66 20 73 | 74 72 69 6e 67 0d 20 20 |r i of s|tring.  |
|00001b00| 20 20 65 6c 73 65 0d 20 | 20 20 20 20 20 67 65 74 |  else. |     get|
|00001b10| 20 63 68 61 72 54 6f 4e | 75 6d 28 63 68 61 72 20 | charToN|um(char |
|00001b20| 69 20 6f 66 20 73 74 72 | 69 6e 67 29 0d 20 20 20 |i of str|ing).   |
|00001b30| 20 20 20 2d 2d 20 6e 65 | 78 74 20 6c 69 6e 65 3a |   -- ne|xt line:|
|00001b40| 20 69 66 20 69 74 20 69 | 73 20 6e 6f 74 20 28 2d | if it i|s not (-|
|00001b50| 29 20 61 6e 64 20 6e 6f | 74 20 28 2e 29 20 61 6e |) and no|t (.) an|
|00001b60| 64 20 6e 6f 74 20 69 6e | 20 63 68 61 72 20 30 20 |d not in| char 0 |
|00001b70| 74 68 72 75 20 39 20 2d | 2d 0d 20 20 20 20 20 20 |thru 9 -|-.      |
|00001b80| 69 66 20 28 69 74 20 ad | 20 34 35 29 20 61 6e 64 |if (it .| 45) and|
|00001b90| 20 28 69 74 20 ad 20 34 | 36 29 20 61 6e 64 20 28 | (it . 4|6) and (|
|00001ba0| 69 74 20 3c 20 34 38 20 | 6f 72 20 69 74 20 3e 20 |it < 48 |or it > |
|00001bb0| 35 37 29 20 74 68 65 6e | 0d 20 20 20 20 20 20 20 |57) then|.       |
|00001bc0| 20 61 6e 73 77 65 72 20 | 22 54 68 61 74 20 69 73 | answer |"That is|
|00001bd0| 20 6e 6f 74 20 61 20 6e | 75 6d 62 65 72 2e 22 0d | not a n|umber.".|
|00001be0| 20 20 20 20 20 20 20 20 | 72 65 74 75 72 6e 20 66 |        |return f|
|00001bf0| 61 6c 73 65 0d 20 20 20 | 20 20 20 65 6e 64 20 69 |alse.   |   end i|
|00001c00| 66 0d 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 65 |f.    en|d if.  e|
|00001c10| 6e 64 20 72 65 70 65 61 | 74 0d 20 20 69 66 20 73 |nd repea|t.  if s|
|00001c20| 74 72 69 6e 67 20 3c 20 | 30 20 74 68 65 6e 0d 20 |tring < |0 then. |
|00001c30| 20 20 20 61 6e 73 77 65 | 72 20 22 51 75 61 6e 74 |   answe|r "Quant|
|00001c40| 69 74 69 65 73 20 6d 75 | 73 74 20 62 65 20 70 6f |ities mu|st be po|
|00001c50| 73 69 74 69 76 65 2e 22 | 0d 20 20 20 20 72 65 74 |sitive."|.    ret|
|00001c60| 75 72 6e 20 66 61 6c 73 | 65 0d 20 20 65 6e 64 20 |urn fals|e.  end |
|00001c70| 69 66 0d 20 20 72 65 74 | 75 72 6e 20 73 74 72 69 |if.  ret|urn stri|
|00001c80| 6e 67 0d 65 6e 64 20 71 | 75 61 6e 43 68 65 63 6b |ng.end q|uanCheck|
|00001c90| 0d 0d 66 75 6e 63 74 69 | 6f 6e 20 70 6f 73 69 74 |..functi|on posit|
|00001ca0| 69 76 65 43 68 65 63 6b | 20 73 74 72 69 6e 67 0d |iveCheck| string.|
|00001cb0| 20 20 69 66 20 73 74 72 | 69 6e 67 20 69 73 20 65 |  if str|ing is e|
|00001cc0| 6d 70 74 79 20 74 68 65 | 6e 0d 20 20 20 20 72 65 |mpty the|n.    re|
|00001cd0| 74 75 72 6e 20 66 61 6c | 73 65 0d 20 20 65 6c 73 |turn fal|se.  els|
|00001ce0| 65 20 69 66 20 73 74 72 | 69 6e 67 20 3c 20 30 20 |e if str|ing < 0 |
|00001cf0| 74 68 65 6e 0d 20 20 20 | 20 61 6e 73 77 65 72 20 |then.   | answer |
|00001d00| 22 4e 75 6d 62 65 72 73 | 20 6d 75 73 74 20 62 65 |"Numbers| must be|
|00001d10| 20 70 6f 73 69 74 69 76 | 65 2e 22 0d 20 20 20 20 | positiv|e.".    |
|00001d20| 72 65 74 75 72 6e 20 66 | 61 6c 73 65 0d 20 20 65 |return f|alse.  e|
|00001d30| 6e 64 20 69 66 0d 20 20 | 72 65 74 75 72 6e 20 73 |nd if.  |return s|
|00001d40| 74 72 69 6e 67 0d 65 6e | 64 20 70 6f 73 69 74 69 |tring.en|d positi|
|00001d50| 76 65 43 68 65 63 6b 0d | 0d 66 75 6e 63 74 69 6f |veCheck.|.functio|
|00001d60| 6e 20 70 65 72 63 65 6e | 74 43 68 65 63 6b 20 73 |n percen|tCheck s|
|00001d70| 74 72 69 6e 67 0d 20 20 | 69 66 20 73 74 72 69 6e |tring.  |if strin|
|00001d80| 67 20 69 73 20 65 6d 70 | 74 79 20 74 68 65 6e 0d |g is emp|ty then.|
|00001d90| 20 20 20 20 72 65 74 75 | 72 6e 20 66 61 6c 73 65 |    retu|rn false|
|00001da0| 0d 20 20 65 6e 64 20 69 | 66 0d 20 20 72 65 70 65 |.  end i|f.  repe|
|00001db0| 61 74 20 77 69 74 68 20 | 69 20 3d 20 31 20 74 6f |at with |i = 1 to|
|00001dc0| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 | the num|ber of c|
|00001dd0| 68 61 72 73 20 6f 66 20 | 73 74 72 69 6e 67 0d 20 |hars of |string. |
|00001de0| 20 20 20 67 65 74 20 63 | 68 61 72 54 6f 4e 75 6d |   get c|harToNum|
|00001df0| 28 63 68 61 72 20 69 20 | 6f 66 20 73 74 72 69 6e |(char i |of strin|
|00001e00| 67 29 0d 20 20 20 20 2d | 2d 20 6e 65 78 74 20 6c |g).    -|- next l|
|00001e10| 69 6e 65 3a 20 69 66 20 | 69 74 20 69 73 20 6e 6f |ine: if |it is no|
|00001e20| 74 20 28 2d 29 20 61 6e | 64 20 6e 6f 74 20 28 2e |t (-) an|d not (.|
|00001e30| 29 20 61 6e 64 20 6e 6f | 74 20 69 6e 20 63 68 61 |) and no|t in cha|
|00001e40| 72 20 30 20 74 68 72 75 | 20 39 20 2d 2d 0d 20 20 |r 0 thru| 9 --.  |
|00001e50| 20 20 69 66 20 28 69 74 | 20 ad 20 34 35 29 20 61 |  if (it| . 45) a|
|00001e60| 6e 64 20 28 69 74 20 ad | 20 34 36 29 20 61 6e 64 |nd (it .| 46) and|
|00001e70| 20 28 69 74 20 3c 20 34 | 38 20 6f 72 20 69 74 20 | (it < 4|8 or it |
|00001e80| 3e 20 35 37 29 20 74 68 | 65 6e 0d 20 20 20 20 20 |> 57) th|en.     |
|00001e90| 20 61 6e 73 77 65 72 20 | 22 54 68 61 74 20 69 73 | answer |"That is|
|00001ea0| 20 6e 6f 74 20 61 20 6e | 75 6d 62 65 72 2e 22 0d | not a n|umber.".|
|00001eb0| 20 20 20 20 20 20 72 65 | 74 75 72 6e 20 66 61 6c |      re|turn fal|
|00001ec0| 73 65 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |se.    e|nd if.  |
|00001ed0| 65 6e 64 20 72 65 70 65 | 61 74 0d 20 20 69 66 20 |end repe|at.  if |
|00001ee0| 73 74 72 69 6e 67 20 3c | 20 30 20 74 68 65 6e 0d |string <| 0 then.|
|00001ef0| 20 20 20 20 61 6e 73 77 | 65 72 20 22 50 65 72 63 |    answ|er "Perc|
|00001f00| 65 6e 74 61 67 65 73 20 | 6d 75 73 74 20 62 65 20 |entages |must be |
|00001f10| 70 6f 73 69 74 69 76 65 | 2e 22 0d 20 20 20 20 72 |positive|.".    r|
|00001f20| 65 74 75 72 6e 20 66 61 | 6c 73 65 0d 20 20 65 6c |eturn fa|lse.  el|
|00001f30| 73 65 20 69 66 20 73 74 | 72 69 6e 67 20 3e 20 31 |se if st|ring > 1|
|00001f40| 30 30 20 74 68 65 6e 0d | 20 20 20 20 61 6e 73 77 |00 then.|    answ|
|00001f50| 65 72 20 22 50 65 72 63 | 65 6e 74 61 67 65 73 20 |er "Perc|entages |
|00001f60| 63 61 6e 6e 6f 74 20 62 | 65 20 67 72 65 61 74 65 |cannot b|e greate|
|00001f70| 72 20 74 68 61 6e 20 31 | 30 30 2e 22 0d 20 20 20 |r than 1|00.".   |
|00001f80| 20 72 65 74 75 72 6e 20 | 66 61 6c 73 65 0d 20 20 | return |false.  |
|00001f90| 65 6e 64 20 69 66 0d 20 | 20 72 65 74 75 72 6e 20 |end if. | return |
|00001fa0| 73 74 72 69 6e 67 0d 65 | 6e 64 20 70 65 72 63 65 |string.e|nd perce|
|00001fb0| 6e 74 43 68 65 63 6b 0d | 0d 66 75 6e 63 74 69 6f |ntCheck.|.functio|
|00001fc0| 6e 20 77 68 6f 6c 65 4e | 75 6d 62 65 72 43 68 65 |n wholeN|umberChe|
|00001fd0| 63 6b 20 73 74 72 69 6e | 67 0d 20 20 69 66 20 73 |ck strin|g.  if s|
|00001fe0| 74 72 69 6e 67 20 69 73 | 20 65 6d 70 74 79 20 74 |tring is| empty t|
|00001ff0| 68 65 6e 0d 20 20 20 20 | 72 65 74 75 72 6e 20 66 |hen.    |return f|
|00002000| 61 6c 73 65 0d 20 20 65 | 6e 64 20 69 66 0d 20 20 |alse.  e|nd if.  |
|00002010| 72 65 70 65 61 74 20 77 | 69 74 68 20 69 20 3d 20 |repeat w|ith i = |
|00002020| 31 20 74 6f 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |1 to the| number |
|00002030| 6f 66 20 63 68 61 72 73 | 20 6f 66 20 73 74 72 69 |of chars| of stri|
|00002040| 6e 67 0d 20 20 20 20 67 | 65 74 20 63 68 61 72 54 |ng.    g|et charT|
|00002050| 6f 4e 75 6d 28 63 68 61 | 72 20 69 20 6f 66 20 73 |oNum(cha|r i of s|
|00002060| 74 72 69 6e 67 29 0d 20 | 20 20 20 2d 2d 20 6e 65 |tring). |   -- ne|
|00002070| 78 74 20 6c 69 6e 65 3a | 20 69 66 20 69 74 20 69 |xt line:| if it i|
|00002080| 73 20 6e 6f 74 20 69 6e | 20 63 68 61 72 20 30 20 |s not in| char 0 |
|00002090| 74 68 72 75 20 39 20 2d | 2d 0d 20 20 20 20 69 66 |thru 9 -|-.    if|
|000020a0| 20 28 69 74 20 3c 20 34 | 38 20 6f 72 20 69 74 20 | (it < 4|8 or it |
|000020b0| 3e 20 35 37 29 20 74 68 | 65 6e 0d 20 20 20 20 20 |> 57) th|en.     |
|000020c0| 20 61 6e 73 77 65 72 20 | 22 54 68 61 74 20 69 73 | answer |"That is|
|000020d0| 20 6e 6f 74 20 61 20 77 | 68 6f 6c 65 20 6e 75 6d | not a w|hole num|
|000020e0| 62 65 72 2e 22 0d 20 20 | 20 20 20 20 72 65 74 75 |ber.".  |    retu|
|000020f0| 72 6e 20 66 61 6c 73 65 | 0d 20 20 20 20 65 6e 64 |rn false|.    end|
|00002100| 20 69 66 0d 20 20 65 6e | 64 20 72 65 70 65 61 74 | if.  en|d repeat|
|00002110| 0d 20 20 72 65 74 75 72 | 6e 20 73 74 72 69 6e 67 |.  retur|n string|
|00002120| 0d 65 6e 64 20 77 68 6f | 6c 65 4e 75 6d 62 65 72 |.end who|leNumber|
|00002130| 43 68 65 63 6b 0d 0d 66 | 75 6e 63 74 69 6f 6e 20 |Check..f|unction |
|00002140| 6e 65 78 74 54 72 61 6e | 73 61 63 74 69 6f 6e 44 |nextTran|sactionD|
|00002150| 61 74 65 20 61 63 63 6f | 75 6e 74 4e 6f 0d 20 20 |ate acco|untNo.  |
|00002160| 67 65 74 20 74 68 65 44 | 61 74 65 28 29 0d 20 20 |get theD|ate().  |
|00002170| 63 6f 6e 76 65 72 74 20 | 69 74 20 74 6f 20 73 65 |convert |it to se|
|00002180| 63 6f 6e 64 73 0d 20 20 | 70 75 74 20 6c 61 73 74 |conds.  |put last|
|00002190| 20 6c 69 6e 65 20 6f 66 | 20 66 6c 64 20 22 64 61 | line of| fld "da|
|000021a0| 74 65 22 20 6f 66 20 63 | 64 20 28 22 61 63 63 6f |te" of c|d ("acco|
|000021b0| 75 6e 74 4e 6f 22 20 26 | 26 20 61 63 63 6f 75 6e |untNo" &|& accoun|
|000021c0| 74 4e 6f 29 c2 0d 20 20 | 69 6e 74 6f 20 6c 61 73 |tNo)..  |into las|
|000021d0| 74 54 72 61 6e 73 61 63 | 74 69 6f 6e 44 61 74 65 |tTransac|tionDate|
|000021e0| 0d 20 20 63 6f 6e 76 65 | 72 74 20 6c 61 73 74 54 |.  conve|rt lastT|
|000021f0| 72 61 6e 73 61 63 74 69 | 6f 6e 44 61 74 65 20 74 |ransacti|onDate t|
|00002200| 6f 20 73 65 63 6f 6e 64 | 73 0d 20 20 69 66 20 69 |o second|s.  if i|
|00002210| 74 20 3c 20 6c 61 73 74 | 54 72 61 6e 73 61 63 74 |t < last|Transact|
|00002220| 69 6f 6e 44 61 74 65 20 | 74 68 65 6e 0d 20 20 20 |ionDate |then.   |
|00002230| 20 70 75 74 20 6c 61 73 | 74 54 72 61 6e 73 61 63 | put las|tTransac|
|00002240| 74 69 6f 6e 44 61 74 65 | 20 69 6e 74 6f 20 69 74 |tionDate| into it|
|00002250| 0d 20 20 65 6e 64 20 69 | 66 0d 20 20 63 6f 6e 76 |.  end i|f.  conv|
|00002260| 65 72 74 20 69 74 20 74 | 6f 20 64 61 74 65 0d 20 |ert it t|o date. |
|00002270| 20 72 65 74 75 72 6e 20 | 69 74 0d 65 6e 64 20 6e | return |it.end n|
|00002280| 65 78 74 54 72 61 6e 73 | 61 63 74 69 6f 6e 44 61 |extTrans|actionDa|
|00002290| 74 65 0d 0d 66 75 6e 63 | 74 69 6f 6e 20 66 6f 72 |te..func|tion for|
|000022a0| 6d 61 74 41 6d 6f 75 6e | 74 20 61 6d 6f 75 6e 74 |matAmoun|t amount|
|000022b0| 0d 20 20 67 65 74 20 6c | 65 6e 67 74 68 20 6f 66 |.  get l|ength of|
|000022c0| 20 61 6d 6f 75 6e 74 0d | 20 20 69 66 20 69 74 20 | amount.|  if it |
|000022d0| b3 20 37 20 74 68 65 6e | 20 70 75 74 20 63 6f 6d |. 7 then| put com|
|000022e0| 6d 61 20 61 66 74 65 72 | 20 63 68 61 72 20 28 69 |ma after| char (i|
|000022f0| 74 2d 36 29 20 6f 66 20 | 61 6d 6f 75 6e 74 0d 20 |t-6) of |amount. |
|00002300| 20 69 66 20 69 74 20 b3 | 20 31 30 20 74 68 65 6e | if it .| 10 then|
|00002310| 20 70 75 74 20 63 6f 6d | 6d 61 20 61 66 74 65 72 | put com|ma after|
|00002320| 20 63 68 61 72 20 28 69 | 74 2d 39 29 20 6f 66 20 | char (i|t-9) of |
|00002330| 61 6d 6f 75 6e 74 0d 20 | 20 69 66 20 63 68 61 72 |amount. | if char|
|00002340| 20 31 20 6f 66 20 61 6d | 6f 75 6e 74 20 69 73 20 | 1 of am|ount is |
|00002350| 22 2d 22 20 61 6e 64 20 | 63 68 61 72 20 32 20 6f |"-" and |char 2 o|
|00002360| 66 20 61 6d 6f 75 6e 74 | 20 69 73 20 22 2c 22 20 |f amount| is "," |
|00002370| 74 68 65 6e 0d 20 20 20 | 20 64 65 6c 65 74 65 20 |then.   | delete |
|00002380| 63 68 61 72 20 32 20 6f | 66 20 61 6d 6f 75 6e 74 |char 2 o|f amount|
|00002390| 0d 20 20 65 6e 64 20 69 | 66 0d 20 20 72 65 74 75 |.  end i|f.  retu|
|000023a0| 72 6e 20 61 6d 6f 75 6e | 74 0d 65 6e 64 20 66 6f |rn amoun|t.end fo|
|000023b0| 72 6d 61 74 41 6d 6f 75 | 6e 74 0d 0d 66 75 6e 63 |rmatAmou|nt..func|
|000023c0| 74 69 6f 6e 20 66 6f 72 | 6d 61 74 41 6d 6f 75 6e |tion for|matAmoun|
|000023d0| 74 73 20 61 6d 6f 75 6e | 74 4c 69 73 74 0d 20 20 |ts amoun|tList.  |
|000023e0| 72 65 70 65 61 74 20 77 | 69 74 68 20 69 20 3d 20 |repeat w|ith i = |
|000023f0| 31 20 74 6f 20 6e 75 6d | 62 65 72 20 6f 66 20 6c |1 to num|ber of l|
|00002400| 69 6e 65 73 20 6f 66 20 | 61 6d 6f 75 6e 74 4c 69 |ines of |amountLi|
|00002410| 73 74 0d 20 20 20 20 67 | 65 74 20 6c 65 6e 67 74 |st.    g|et lengt|
|00002420| 68 20 6f 66 20 6c 69 6e | 65 20 69 20 6f 66 20 61 |h of lin|e i of a|
|00002430| 6d 6f 75 6e 74 4c 69 73 | 74 0d 20 20 20 20 69 66 |mountLis|t.    if|
|00002440| 20 69 74 20 b3 20 37 20 | 74 68 65 6e 20 70 75 74 | it . 7 |then put|
|00002450| 20 63 6f 6d 6d 61 20 61 | 66 74 65 72 20 63 68 61 | comma a|fter cha|
|00002460| 72 20 28 69 74 2d 36 29 | 20 6f 66 20 6c 69 6e 65 |r (it-6)| of line|
|00002470| 20 69 20 6f 66 20 61 6d | 6f 75 6e 74 4c 69 73 74 | i of am|ountList|
|00002480| 0d 20 20 20 20 69 66 20 | 69 74 20 b3 20 31 30 20 |.    if |it . 10 |
|00002490| 74 68 65 6e 20 70 75 74 | 20 63 6f 6d 6d 61 20 61 |then put| comma a|
|000024a0| 66 74 65 72 20 63 68 61 | 72 20 28 69 74 2d 39 29 |fter cha|r (it-9)|
|000024b0| 20 6f 66 20 6c 69 6e 65 | 20 69 20 6f 66 20 61 6d | of line| i of am|
|000024c0| 6f 75 6e 74 4c 69 73 74 | 0d 20 20 20 20 69 66 20 |ountList|.    if |
|000024d0| 63 68 61 72 20 31 20 6f | 66 20 6c 69 6e 65 20 69 |char 1 o|f line i|
|000024e0| 20 6f 66 20 61 6d 6f 75 | 6e 74 4c 69 73 74 20 69 | of amou|ntList i|
|000024f0| 73 20 22 2d 22 20 61 6e | 64 c2 0d 20 20 20 20 63 |s "-" an|d..    c|
|00002500| 68 61 72 20 32 20 6f 66 | 20 6c 69 6e 65 20 69 20 |har 2 of| line i |
|00002510| 6f 66 20 61 6d 6f 75 6e | 74 4c 69 73 74 20 69 73 |of amoun|tList is|
|00002520| 20 22 2c 22 20 74 68 65 | 6e 0d 20 20 20 20 20 20 | "," the|n.      |
|00002530| 64 65 6c 65 74 65 20 63 | 68 61 72 20 32 20 6f 66 |delete c|har 2 of|
|00002540| 20 6c 69 6e 65 20 69 20 | 6f 66 20 61 6d 6f 75 6e | line i |of amoun|
|00002550| 74 4c 69 73 74 0d 20 20 | 20 20 65 6e 64 20 69 66 |tList.  |  end if|
|00002560| 0d 20 20 65 6e 64 20 72 | 65 70 65 61 74 0d 20 20 |.  end r|epeat.  |
|00002570| 72 65 74 75 72 6e 20 61 | 6d 6f 75 6e 74 4c 69 73 |return a|mountLis|
|00002580| 74 0d 65 6e 64 20 66 6f | 72 6d 61 74 41 6d 6f 75 |t.end fo|rmatAmou|
|00002590| 6e 74 73 0d 0d 66 75 6e | 63 74 69 6f 6e 20 75 6e |nts..fun|ction un|
|000025a0| 46 6f 72 6d 61 74 41 6d | 6f 75 6e 74 20 61 6d 6f |FormatAm|ount amo|
|000025b0| 75 6e 74 0d 20 20 72 65 | 70 65 61 74 20 77 69 74 |unt.  re|peat wit|
|000025c0| 68 20 69 20 3d 20 74 68 | 65 20 6c 65 6e 67 74 68 |h i = th|e length|
|000025d0| 20 6f 66 20 61 6d 6f 75 | 6e 74 20 64 6f 77 6e 20 | of amou|nt down |
|000025e0| 74 6f 20 31 0d 20 20 20 | 20 69 66 20 63 68 61 72 |to 1.   | if char|
|000025f0| 20 69 20 6f 66 20 61 6d | 6f 75 6e 74 20 69 73 20 | i of am|ount is |
|00002600| 6e 6f 74 20 69 6e 20 22 | 31 32 33 34 35 36 37 38 |not in "|12345678|
|00002610| 39 30 2e 22 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |90." the|n.      |
|00002620| 64 65 6c 65 74 65 20 63 | 68 61 72 20 69 20 6f 66 |delete c|har i of|
|00002630| 20 61 6d 6f 75 6e 74 0d | 20 20 20 20 65 6e 64 20 | amount.|    end |
|00002640| 69 66 0d 20 20 65 6e 64 | 20 72 65 70 65 61 74 0d |if.  end| repeat.|
|00002650| 20 20 72 65 74 75 72 6e | 20 61 6d 6f 75 6e 74 0d |  return| amount.|
|00002660| 65 6e 64 20 75 6e 46 6f | 72 6d 61 74 41 6d 6f 75 |end unFo|rmatAmou|
|00002670| 6e 74 0d 0d 66 75 6e 63 | 74 69 6f 6e 20 75 6e 46 |nt..func|tion unF|
|00002680| 6f 72 6d 61 74 41 6d 6f | 75 6e 74 73 20 61 6d 6f |ormatAmo|unts amo|
|00002690| 75 6e 74 4c 69 73 74 0d | 20 20 72 65 70 65 61 74 |untList.|  repeat|
|000026a0| 20 77 69 74 68 20 69 20 | 3d 20 31 20 74 6f 20 6e | with i |= 1 to n|
|000026b0| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 20 6f |umber of| lines o|
|000026c0| 66 20 61 6d 6f 75 6e 74 | 4c 69 73 74 0d 20 20 20 |f amount|List.   |
|000026d0| 20 72 65 70 65 61 74 20 | 77 69 74 68 20 6a 20 3d | repeat |with j =|
|000026e0| 20 74 68 65 20 6c 65 6e | 67 74 68 20 6f 66 20 6c | the len|gth of l|
|000026f0| 69 6e 65 20 69 20 6f 66 | 20 61 6d 6f 75 6e 74 4c |ine i of| amountL|
|00002700| 69 73 74 20 64 6f 77 6e | 20 74 6f 20 31 0d 20 20 |ist down| to 1.  |
|00002710| 20 20 20 20 69 66 20 63 | 68 61 72 20 6a 20 6f 66 |    if c|har j of|
|00002720| 20 6c 69 6e 65 20 69 20 | 6f 66 20 61 6d 6f 75 6e | line i |of amoun|
|00002730| 74 4c 69 73 74 20 69 73 | 20 6e 6f 74 20 69 6e 20 |tList is| not in |
|00002740| 22 31 32 33 34 35 36 37 | 38 39 30 2e 22 20 74 68 |"1234567|890." th|
|00002750| 65 6e 0d 20 20 20 20 20 | 20 20 20 64 65 6c 65 74 |en.     |   delet|
|00002760| 65 20 63 68 61 72 20 6a | 20 6f 66 20 6c 69 6e 65 |e char j| of line|
|00002770| 20 69 20 6f 66 20 61 6d | 6f 75 6e 74 4c 69 73 74 | i of am|ountList|
|00002780| 0d 20 20 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |.      e|nd if.  |
|00002790| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0d 20 20 65 |  end re|peat.  e|
|000027a0| 6e 64 20 72 65 70 65 61 | 74 0d 20 20 72 65 74 75 |nd repea|t.  retu|
|000027b0| 72 6e 20 61 6d 6f 75 6e | 74 4c 69 73 74 0d 65 6e |rn amoun|tList.en|
|000027c0| 64 20 75 6e 46 6f 72 6d | 61 74 41 6d 6f 75 6e 74 |d unForm|atAmount|
|000027d0| 73 0d 0d 66 75 6e 63 74 | 69 6f 6e 20 73 68 6f 77 |s..funct|ion show|
|000027e0| 44 69 61 6c 6f 67 52 65 | 63 74 20 64 69 61 6c 6f |DialogRe|ct dialo|
|000027f0| 67 48 65 69 67 68 74 2c | 64 69 61 6c 6f 67 57 69 |gHeight,|dialogWi|
|00002800| 64 74 68 0d 20 20 70 75 | 74 20 72 65 63 74 20 6f |dth.  pu|t rect o|
|00002810| 66 20 63 61 72 64 20 77 | 69 6e 64 6f 77 20 69 6e |f card w|indow in|
|00002820| 74 6f 20 63 61 72 64 52 | 65 63 74 0d 20 20 70 75 |to cardR|ect.  pu|
|00002830| 74 20 73 63 72 65 65 6e | 52 65 63 74 28 29 20 69 |t screen|Rect() i|
|00002840| 6e 74 6f 20 73 63 72 65 | 65 6e 52 65 63 74 0d 20 |nto scre|enRect. |
|00002850| 20 72 65 74 75 72 6e 20 | 28 69 74 65 6d 20 32 20 | return |(item 2 |
|00002860| 6f 66 20 63 61 72 64 52 | 65 63 74 20 2a 20 2d 31 |of cardR|ect * -1|
|00002870| 29 c2 0d 20 20 2b 20 72 | 6f 75 6e 64 28 28 69 74 |)..  + r|ound((it|
|00002880| 65 6d 20 34 20 6f 66 20 | 73 63 72 65 65 6e 52 65 |em 4 of |screenRe|
|00002890| 63 74 20 2d 20 64 69 61 | 6c 6f 67 48 65 69 67 68 |ct - dia|logHeigh|
|000028a0| 74 29 20 2a 20 2e 33 35 | 29 20 26 20 22 2c 22 20 |t) * .35|) & "," |
|000028b0| 26 c2 0d 20 20 28 69 74 | 65 6d 20 31 20 6f 66 20 |&..  (it|em 1 of |
|000028c0| 63 61 72 64 52 65 63 74 | 20 2a 20 2d 31 29 20 2b |cardRect| * -1) +|
|000028d0| 20 28 69 74 65 6d 20 33 | 20 6f 66 20 73 63 72 65 | (item 3| of scre|
|000028e0| 65 6e 52 65 63 74 2f 32 | 29 20 2d 20 28 64 69 61 |enRect/2|) - (dia|
|000028f0| 6c 6f 67 57 69 64 74 68 | 2f 32 29 0d 65 6e 64 20 |logWidth|/2).end |
|00002900| 73 68 6f 77 44 69 61 6c | 6f 67 52 65 63 74 0d 0d |showDial|ogRect..|
|00002910| 66 75 6e 63 74 69 6f 6e | 20 67 65 74 55 6e 64 65 |function| getUnde|
|00002920| 72 6c 69 6e 65 0d 20 20 | 69 66 20 74 68 65 72 65 |rline.  |if there|
|00002930| 20 69 73 20 61 20 6d 65 | 6e 75 49 74 65 6d 20 22 | is a me|nuItem "|
|00002940| 63 6f 75 72 69 65 72 22 | 20 69 6e 20 6d 65 6e 75 |courier"| in menu|
|00002950| 20 22 66 6f 6e 74 22 20 | 74 68 65 6e 0d 20 20 20 | "font" |then.   |
|00002960| 20 72 65 74 75 72 6e 20 | 22 5f 5f 5f 5f 5f 5f 5f | return |"_______|
|00002970| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00002980| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00002990| 5f 5f 22 26 c2 0d 20 20 | 20 20 22 5f 5f 5f 5f 5f |__"&..  |  "_____|
|000029a0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000029b0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000029c0| 5f 5f 5f 5f 5f 22 0d 20 | 20 65 6c 73 65 0d 20 20 |_____". | else.  |
|000029d0| 20 20 72 65 74 75 72 6e | 20 22 5f 5f 5f 5f 5f 5f |  return| "______|
|000029e0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000029f0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00002a00| 5f 5f 5f 22 26 c2 0d 20 | 20 20 20 22 5f 5f 5f 5f |___"&.. |   "____|
|00002a10| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00002a20| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 22 0d 20 20 65 6e |________|__".  en|
|00002a30| 64 20 69 66 0d 65 6e 64 | 20 67 65 74 55 6e 64 65 |d if.end| getUnde|
|00002a40| 72 4c 69 6e 65 0d 0d 66 | 75 6e 63 74 69 6f 6e 20 |rLine..f|unction |
|00002a50| 63 68 65 63 6b 56 61 6c | 69 64 44 61 74 65 20 64 |checkVal|idDate d|
|00002a60| 61 74 65 0d 20 20 70 75 | 74 20 64 61 74 65 20 69 |ate.  pu|t date i|
|00002a70| 6e 74 6f 20 69 74 0d 20 | 20 63 6f 6e 76 65 72 74 |nto it. | convert|
|00002a80| 20 69 74 20 74 6f 20 73 | 65 63 6f 6e 64 73 0d 20 | it to s|econds. |
|00002a90| 20 69 66 20 74 68 65 20 | 72 65 73 75 6c 74 20 69 | if the |result i|
|00002aa0| 73 20 6e 6f 74 20 65 6d | 70 74 79 20 6f 72 c2 0d |s not em|pty or..|
|00002ab0| 20 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |  the nu|mber of |
|00002ac0| 63 68 61 72 73 20 6f 66 | 20 64 61 74 65 20 3c 20 |chars of| date < |
|00002ad0| 36 20 6f 72 c2 0d 20 20 | 74 68 65 20 6e 75 6d 62 |6 or..  |the numb|
|00002ae0| 65 72 20 6f 66 20 63 68 | 61 72 73 20 6f 66 20 64 |er of ch|ars of d|
|00002af0| 61 74 65 20 3e 20 38 20 | 74 68 65 6e 0d 20 20 20 |ate > 8 |then.   |
|00002b00| 20 61 6e 73 77 65 72 20 | 22 54 68 61 74 20 69 73 | answer |"That is|
|00002b10| 20 6e 6f 74 20 61 20 76 | 61 6c 69 64 20 64 61 74 | not a v|alid dat|
|00002b20| 65 2e 20 20 50 6c 65 61 | 73 65 20 74 72 79 20 61 |e.  Plea|se try a|
|00002b30| 67 61 69 6e 2e 22 0d 20 | 20 20 20 72 65 74 75 72 |gain.". |   retur|
|00002b40| 6e 20 66 61 6c 73 65 0d | 20 20 65 6e 64 20 69 66 |n false.|  end if|
|00002b50| 0d 20 20 72 65 74 75 72 | 6e 20 74 72 75 65 0d 65 |.  retur|n true.e|
|00002b60| 6e 64 20 63 68 65 63 6b | 56 61 6c 69 64 44 61 74 |nd check|ValidDat|
|00002b70| 65 0d 0d 6f 6e 20 70 6f | 70 43 61 72 64 0d 20 20 |e..on po|pCard.  |
|00002b80| 70 75 74 20 74 68 65 20 | 73 68 6f 72 74 20 6e 61 |put the |short na|
|00002b90| 6d 65 20 6f 66 20 74 68 | 69 73 20 73 74 61 63 6b |me of th|is stack|
|00002ba0| 20 69 6e 74 6f 20 73 74 | 61 63 6b 4e 61 6d 65 0d | into st|ackName.|
|00002bb0| 20 20 70 6f 70 20 63 61 | 72 64 0d 20 20 69 66 20 |  pop ca|rd.  if |
|00002bc0| 73 68 6f 72 74 20 6e 61 | 6d 65 20 6f 66 20 74 68 |short na|me of th|
|00002bd0| 69 73 20 73 74 61 63 6b | 20 69 73 20 6e 6f 74 20 |is stack| is not |
|00002be0| 73 74 61 63 6b 4e 61 6d | 65 20 74 68 65 6e 0d 20 |stackNam|e then. |
|00002bf0| 20 20 20 73 65 74 20 63 | 75 72 73 6f 72 20 74 6f |   set c|ursor to|
|00002c00| 20 77 61 74 63 68 0d 20 | 20 20 20 67 6f 20 73 74 | watch. |   go st|
|00002c10| 61 63 6b 20 73 74 61 63 | 6b 4e 61 6d 65 0d 20 20 |ack stac|kName.  |
|00002c20| 65 6e 64 20 69 66 0d 65 | 6e 64 20 70 6f 70 43 61 |end if.e|nd popCa|
|00002c30| 72 64 0d 0d 6f 6e 20 61 | 6e 73 77 65 72 44 61 74 |rd..on a|nswerDat|
|00002c40| 61 44 65 6c 65 74 65 64 | 0d 20 20 61 6e 73 77 65 |aDeleted|.  answe|
|00002c50| 72 20 22 53 6f 6d 65 20 | 6f 66 20 74 68 65 20 64 |r "Some |of the d|
|00002c60| 61 74 61 20 69 6e 20 74 | 68 65 20 64 61 74 65 20 |ata in t|he date |
|00002c70| 72 61 6e 67 65 20 79 6f | 75 20 72 65 71 75 65 73 |range yo|u reques|
|00002c80| 74 65 64 20 77 61 73 22 | 26 26 c2 0d 20 20 22 70 |ted was"|&&..  "p|
|00002c90| 72 65 76 69 6f 75 73 6c | 79 20 64 65 6c 65 74 65 |reviousl|y delete|
|00002ca0| 64 20 74 6f 20 6d 61 6b | 65 20 72 6f 6f 6d 20 66 |d to mak|e room f|
|00002cb0| 6f 72 20 6e 65 77 20 65 | 6e 74 72 69 65 73 2e 20 |or new e|ntries. |
|00002cc0| 20 54 72 79 20 61 20 6c | 61 74 65 72 22 26 26 c2 | Try a l|ater"&&.|
|00002cd0| 0d 20 20 22 53 74 61 72 | 74 20 44 61 74 65 20 6f |.  "Star|t Date o|
|00002ce0| 72 20 6f 70 65 6e 20 61 | 6e 20 65 61 72 6c 69 65 |r open a|n earlie|
|00002cf0| 72 20 61 72 63 68 69 76 | 65 20 63 6f 70 79 20 6f |r archiv|e copy o|
|00002d00| 66 20 4f 6e 41 63 63 6f | 75 6e 74 2e 22 0d 20 20 |f OnAcco|unt.".  |
|00002d10| 65 78 69 74 20 74 6f 20 | 68 79 70 65 72 43 61 72 |exit to |hyperCar|
|00002d20| 64 0d 65 6e 64 20 61 6e | 73 77 65 72 44 61 74 61 |d.end an|swerData|
|00002d30| 44 65 6c 65 74 65 64 0d | 0d 6f 6e 20 63 68 65 63 |Deleted.|.on chec|
|00002d40| 6b 4c 61 73 74 41 72 63 | 68 69 76 65 44 61 74 65 |kLastArc|hiveDate|
|00002d50| 20 74 72 61 6e 73 61 63 | 74 69 6f 6e 44 61 74 65 | transac|tionDate|
|00002d60| 0d 20 20 67 6c 6f 62 61 | 6c 20 41 70 70 6c 54 79 |.  globa|l ApplTy|
|00002d70| 70 65 0d 20 20 63 6f 6e | 76 65 72 74 20 74 72 61 |pe.  con|vert tra|
|00002d80| 6e 73 61 63 74 69 6f 6e | 44 61 74 65 20 74 6f 20 |nsaction|Date to |
|00002d90| 73 65 63 6f 6e 64 73 0d | 20 20 69 66 20 74 72 61 |seconds.|  if tra|
|00002da0| 6e 73 61 63 74 69 6f 6e | 44 61 74 65 20 3e 20 66 |nsaction|Date > f|
|00002db0| 6c 64 20 22 6c 61 73 74 | 41 72 63 68 69 76 65 44 |ld "last|ArchiveD|
|00002dc0| 61 74 65 22 20 6f 66 20 | 63 61 72 64 20 31 20 74 |ate" of |card 1 t|
|00002dd0| 68 65 6e 0d 20 20 20 20 | 61 6e 73 77 65 72 20 22 |hen.    |answer "|
|00002de0| 54 6f 20 69 6e 73 75 72 | 65 20 74 68 65 20 69 6e |To insur|e the in|
|00002df0| 74 65 67 72 69 74 79 20 | 6f 66 20 79 6f 75 72 20 |tegrity |of your |
|00002e00| 64 61 74 61 2c 22 26 26 | c2 0d 20 20 20 20 22 61 |data,"&&|..    "a|
|00002e10| 6e 20 61 72 63 68 69 76 | 65 20 63 6f 70 79 20 6f |n archiv|e copy o|
|00002e20| 66 20 4f 6e 41 63 63 6f | 75 6e 74 20 69 73 20 62 |f OnAcco|unt is b|
|00002e30| 65 69 6e 67 20 63 72 65 | 61 74 65 64 22 26 26 c2 |eing cre|ated"&&.|
|00002e40| 0d 20 20 20 20 22 61 74 | 20 74 68 69 73 20 74 69 |.    "at| this ti|
|00002e50| 6d 65 2e 22 0d 20 20 20 | 20 0d 20 20 20 20 70 75 |me.".   | .    pu|
|00002e60| 74 20 74 68 65 20 73 68 | 6f 72 74 20 6e 61 6d 65 |t the sh|ort name|
|00002e70| 20 6f 66 20 74 68 69 73 | 20 73 74 61 63 6b 20 69 | of this| stack i|
|00002e80| 6e 74 6f 20 73 74 61 63 | 6b 4e 61 6d 65 0d 20 20 |nto stac|kName.  |
|00002e90| 20 20 73 61 76 65 20 73 | 74 61 63 6b 20 73 74 61 |  save s|tack sta|
|00002ea0| 63 6b 4e 61 6d 65 20 61 | 73 20 22 4f 6e 41 63 63 |ckName a|s "OnAcc|
|00002eb0| 74 41 72 63 68 22 20 26 | 26 20 74 68 65 44 61 74 |tArch" &|& theDat|
|00002ec0| 65 28 29 0d 20 20 20 20 | 70 75 74 20 74 68 65 20 |e().    |put the |
|00002ed0| 6c 6f 6e 67 20 6e 61 6d | 65 20 6f 66 20 74 68 69 |long nam|e of thi|
|00002ee0| 73 20 73 74 61 63 6b 20 | 69 6e 74 6f 20 74 68 65 |s stack |into the|
|00002ef0| 50 61 74 68 0d 20 20 20 | 20 64 65 6c 65 74 65 20 |Path.   | delete |
|00002f00| 63 68 61 72 20 31 20 74 | 6f 20 37 20 6f 66 20 74 |char 1 t|o 7 of t|
|00002f10| 68 65 50 61 74 68 0d 20 | 20 20 20 64 65 6c 65 74 |hePath. |   delet|
|00002f20| 65 20 6c 61 73 74 20 63 | 68 61 72 20 6f 66 20 74 |e last c|har of t|
|00002f30| 68 65 50 61 74 68 0d 20 | 20 20 20 72 65 70 65 61 |hePath. |   repea|
|00002f40| 74 20 75 6e 74 69 6c 20 | 6c 61 73 74 20 63 68 61 |t until |last cha|
|00002f50| 72 20 6f 66 20 74 68 65 | 50 61 74 68 20 69 73 20 |r of the|Path is |
|00002f60| 22 3a 22 0d 20 20 20 20 | 20 20 64 65 6c 65 74 65 |":".    |  delete|
|00002f70| 20 6c 61 73 74 20 63 68 | 61 72 20 6f 66 20 74 68 | last ch|ar of th|
|00002f80| 65 50 61 74 68 0d 20 20 | 20 20 65 6e 64 20 72 65 |ePath.  |  end re|
|00002f90| 70 65 61 74 0d 20 20 20 | 20 69 66 20 41 70 70 6c |peat.   | if Appl|
|00002fa0| 54 79 70 65 20 69 73 20 | 22 4f 6e 41 63 63 6f 75 |Type is |"OnAccou|
|00002fb0| 6e 74 22 20 74 68 65 6e | 0d 20 20 20 20 20 20 73 |nt" then|.      s|
|00002fc0| 65 74 46 69 6c 65 49 6e | 66 6f 20 74 68 65 50 61 |etFileIn|fo thePa|
|00002fd0| 74 68 20 26 20 22 4f 6e | 41 63 63 74 41 72 63 68 |th & "On|AcctArch|
|00002fe0| 22 20 26 26 20 74 68 65 | 44 61 74 65 28 29 2c 74 |" && the|Date(),t|
|00002ff0| 79 70 65 2c 22 4f 41 61 | 72 22 0d 20 20 20 20 65 |ype,"OAa|r".    e|
|00003000| 6c 73 65 20 69 66 20 41 | 70 70 6c 54 79 70 65 20 |lse if A|pplType |
|00003010| 69 73 20 22 4f 66 66 69 | 63 65 20 4d 61 6e 61 67 |is "Offi|ce Manag|
|00003020| 65 72 22 20 74 68 65 6e | 0d 20 20 20 20 20 20 73 |er" then|.      s|
|00003030| 65 74 46 69 6c 65 49 6e | 66 6f 20 74 68 65 50 61 |etFileIn|fo thePa|
|00003040| 74 68 20 26 20 22 4f 6e | 41 63 63 74 41 72 63 68 |th & "On|AcctArch|
|00003050| 22 20 26 26 20 74 68 65 | 44 61 74 65 28 29 2c 74 |" && the|Date(),t|
|00003060| 79 70 65 2c 22 4f 4d 61 | 6e 22 0d 20 20 20 20 65 |ype,"OMa|n".    e|
|00003070| 6e 64 20 69 66 0d 20 20 | 20 20 70 75 73 68 20 63 |nd if.  |  push c|
|00003080| 61 72 64 0d 20 20 20 20 | 6c 6f 63 6b 20 73 63 72 |ard.    |lock scr|
|00003090| 65 65 6e 0d 20 20 20 20 | 67 6f 20 63 61 72 64 20 |een.    |go card |
|000030a0| 31 0d 20 20 20 20 67 65 | 74 20 74 68 65 44 61 74 |1.    ge|t theDat|
|000030b0| 65 28 29 0d 20 20 20 20 | 63 6f 6e 76 65 72 74 20 |e().    |convert |
|000030c0| 69 74 20 74 6f 20 73 65 | 63 6f 6e 64 73 0d 20 20 |it to se|conds.  |
|000030d0| 20 20 70 75 74 20 69 74 | 20 69 6e 74 6f 20 66 6c |  put it| into fl|
|000030e0| 64 20 22 6c 61 73 74 41 | 72 63 68 69 76 65 44 61 |d "lastA|rchiveDa|
|000030f0| 74 65 22 0d 20 20 20 20 | 70 6f 70 20 63 61 72 64 |te".    |pop card|
|00003100| 0d 20 20 20 20 75 6e 6c | 6f 63 6b 20 73 63 72 65 |.    unl|ock scre|
|00003110| 65 6e 0d 20 20 65 6e 64 | 20 69 66 0d 65 6e 64 20 |en.  end| if.end |
|00003120| 63 68 65 63 6b 4c 61 73 | 74 41 72 63 68 69 76 65 |checkLas|tArchive|
|00003130| 44 61 74 65 0d 0d 6f 6e | 20 73 61 76 65 41 6e 41 |Date..on| saveAnA|
|00003140| 72 63 68 69 76 65 0d 20 | 20 67 6c 6f 62 61 6c 20 |rchive. | global |
|00003150| 41 70 70 6c 54 79 70 65 | 2c 46 69 6c 65 54 79 70 |ApplType|,FileTyp|
|00003160| 65 2c 55 53 74 61 74 75 | 73 0d 20 20 0d 20 20 69 |e,UStatu|s.  .  i|
|00003170| 66 20 6c 69 6e 65 20 33 | 20 6f 66 20 55 53 74 61 |f line 3| of USta|
|00003180| 74 75 73 20 69 73 20 6e | 6f 74 20 22 52 55 22 20 |tus is n|ot "RU" |
|00003190| 74 68 65 6e 0d 20 20 20 | 20 61 6e 73 77 65 72 20 |then.   | answer |
|000031a0| 22 59 6f 75 72 20 4f 6e | 41 63 63 6f 75 6e 74 20 |"Your On|Account |
|000031b0| 6d 75 73 74 20 62 65 20 | 72 65 67 69 73 74 65 72 |must be |register|
|000031c0| 65 64 20 74 6f 20 63 72 | 65 61 74 65 22 26 26 c2 |ed to cr|eate"&&.|
|000031d0| 0d 20 20 20 20 22 61 72 | 63 68 69 76 65 73 2e 22 |.    "ar|chives."|
|000031e0| 0d 20 20 20 20 65 78 69 | 74 20 73 61 76 65 41 6e |.    exi|t saveAn|
|000031f0| 41 72 63 68 69 76 65 0d | 20 20 65 6e 64 20 69 66 |Archive.|  end if|
|00003200| 0d 20 20 0d 20 20 69 66 | 20 46 69 6c 65 54 79 70 |.  .  if| FileTyp|
|00003210| 65 20 69 73 20 22 61 72 | 63 68 69 76 65 22 20 74 |e is "ar|chive" t|
|00003220| 68 65 6e 0d 20 20 20 20 | 61 6e 73 77 65 72 20 22 |hen.    |answer "|
|00003230| 59 6f 75 20 63 61 6e 6e | 6f 74 20 73 61 76 65 20 |You cann|ot save |
|00003240| 61 6e 20 61 72 63 68 69 | 76 65 20 6f 66 20 61 6e |an archi|ve of an|
|00003250| 20 61 72 63 68 69 76 65 | 2e 22 0d 20 20 20 20 65 | archive|.".    e|
|00003260| 78 69 74 20 73 61 76 65 | 41 6e 41 72 63 68 69 76 |xit save|AnArchiv|
|00003270| 65 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 0d 20 20 |e.  end |if.  .  |
|00003280| 61 6e 73 77 65 72 20 22 | 43 72 65 61 74 65 20 61 |answer "|Create a|
|00003290| 6e 20 61 72 63 68 69 76 | 65 20 63 6f 70 79 20 6f |n archiv|e copy o|
|000032a0| 66 20 4f 6e 41 63 63 6f | 75 6e 74 20 6e 61 6d 65 |f OnAcco|unt name|
|000032b0| 64 22 20 26 26 c2 0d 20 | 20 22 d2 4f 6e 41 63 63 |d" &&.. | ".OnAcc|
|000032c0| 74 41 72 63 68 22 20 26 | 26 20 74 68 65 44 61 74 |tArch" &|& theDat|
|000032d0| 65 28 29 20 26 20 22 d3 | 22 20 77 69 74 68 20 22 |e() & ".|" with "|
|000032e0| 43 61 6e 63 65 6c 22 20 | 6f 72 20 22 53 61 76 65 |Cancel" |or "Save|
|000032f0| 22 0d 20 20 69 66 20 69 | 74 20 69 73 20 22 73 61 |".  if i|t is "sa|
|00003300| 76 65 22 20 74 68 65 6e | 0d 20 20 20 20 70 75 74 |ve" then|.    put|
|00003310| 20 74 68 65 20 73 68 6f | 72 74 20 6e 61 6d 65 20 | the sho|rt name |
|00003320| 6f 66 20 74 68 69 73 20 | 73 74 61 63 6b 20 69 6e |of this |stack in|
|00003330| 74 6f 20 73 74 61 63 6b | 4e 61 6d 65 0d 20 20 20 |to stack|Name.   |
|00003340| 20 73 61 76 65 20 73 74 | 61 63 6b 20 73 74 61 63 | save st|ack stac|
|00003350| 6b 4e 61 6d 65 20 61 73 | 20 22 4f 6e 41 63 63 74 |kName as| "OnAcct|
|00003360| 41 72 63 68 22 20 26 26 | 20 74 68 65 44 61 74 65 |Arch" &&| theDate|
|00003370| 28 29 0d 20 20 20 20 69 | 66 20 74 68 65 20 72 65 |().    i|f the re|
|00003380| 73 75 6c 74 20 69 73 20 | 6e 6f 74 20 65 6d 70 74 |sult is |not empt|
|00003390| 79 20 74 68 65 6e 0d 20 | 20 20 20 20 20 61 6e 73 |y then. |     ans|
|000033a0| 77 65 72 20 22 54 68 61 | 74 20 61 72 63 68 69 76 |wer "Tha|t archiv|
|000033b0| 65 20 61 6c 72 65 61 64 | 79 20 65 78 69 73 74 73 |e alread|y exists|
|000033c0| 2e 22 20 77 69 74 68 20 | 22 43 61 6e 63 65 6c 22 |." with |"Cancel"|
|000033d0| 0d 20 20 20 20 20 20 65 | 78 69 74 20 74 6f 20 68 |.      e|xit to h|
|000033e0| 79 70 65 72 63 61 72 64 | 0d 20 20 20 20 65 6e 64 |ypercard|.    end|
|000033f0| 20 69 66 0d 20 20 20 20 | 73 65 74 20 63 75 72 73 | if.    |set curs|
|00003400| 6f 72 20 74 6f 20 77 61 | 74 63 68 0d 20 20 20 20 |or to wa|tch.    |
|00003410| 70 75 74 20 74 68 65 20 | 6c 6f 6e 67 20 6e 61 6d |put the |long nam|
|00003420| 65 20 6f 66 20 74 68 69 | 73 20 73 74 61 63 6b 20 |e of thi|s stack |
|00003430| 69 6e 74 6f 20 74 68 65 | 50 61 74 68 0d 20 20 20 |into the|Path.   |
|00003440| 20 64 65 6c 65 74 65 20 | 63 68 61 72 20 31 20 74 | delete |char 1 t|
|00003450| 6f 20 37 20 6f 66 20 74 | 68 65 50 61 74 68 0d 20 |o 7 of t|hePath. |
|00003460| 20 20 20 64 65 6c 65 74 | 65 20 6c 61 73 74 20 63 |   delet|e last c|
|00003470| 68 61 72 20 6f 66 20 74 | 68 65 50 61 74 68 0d 20 |har of t|hePath. |
|00003480| 20 20 20 72 65 70 65 61 | 74 20 75 6e 74 69 6c 20 |   repea|t until |
|00003490| 6c 61 73 74 20 63 68 61 | 72 20 6f 66 20 74 68 65 |last cha|r of the|
|000034a0| 50 61 74 68 20 69 73 20 | 22 3a 22 0d 20 20 20 20 |Path is |":".    |
|000034b0| 20 20 64 65 6c 65 74 65 | 20 6c 61 73 74 20 63 68 |  delete| last ch|
|000034c0| 61 72 20 6f 66 20 74 68 | 65 50 61 74 68 0d 20 20 |ar of th|ePath.  |
|000034d0| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0d 20 20 20 |  end re|peat.   |
|000034e0| 20 0d 20 20 20 20 69 66 | 20 41 70 70 6c 54 79 70 | .    if| ApplTyp|
|000034f0| 65 20 69 73 20 22 4f 6e | 41 63 63 6f 75 6e 74 22 |e is "On|Account"|
|00003500| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 73 65 74 46 | then.  |    setF|
|00003510| 69 6c 65 49 6e 66 6f 20 | 74 68 65 50 61 74 68 20 |ileInfo |thePath |
|00003520| 26 20 22 4f 6e 41 63 63 | 74 41 72 63 68 22 20 26 |& "OnAcc|tArch" &|
|00003530| 26 20 74 68 65 44 61 74 | 65 28 29 2c 74 79 70 65 |& theDat|e(),type|
|00003540| 2c 22 4f 41 61 72 22 0d | 20 20 20 20 20 20 2d 2d |,"OAar".|      --|
|00003550| 20 63 6c 65 61 72 20 61 | 6c 6c 20 72 65 73 6f 75 | clear a|ll resou|
|00003560| 72 63 65 73 20 66 72 6f | 6d 20 74 68 65 20 6e 65 |rces fro|m the ne|
|00003570| 77 20 61 72 63 68 69 76 | 65 20 2d 2d 0d 20 20 20 |w archiv|e --.   |
|00003580| 20 20 20 6b 69 6c 6c 52 | 65 73 20 61 6c 6c 2c 61 |   killR|es all,a|
|00003590| 6c 6c 2c 22 4f 6e 41 63 | 63 74 41 72 63 68 22 20 |ll,"OnAc|ctArch" |
|000035a0| 26 26 20 74 68 65 44 61 | 74 65 28 29 0d 20 20 20 |&& theDa|te().   |
|000035b0| 20 65 6c 73 65 20 69 66 | 20 41 70 70 6c 54 79 70 | else if| ApplTyp|
|000035c0| 65 20 69 73 20 22 4f 66 | 66 69 63 65 20 4d 61 6e |e is "Of|fice Man|
|000035d0| 61 67 65 72 22 20 74 68 | 65 6e 0d 20 20 20 20 20 |ager" th|en.     |
|000035e0| 20 73 65 74 46 69 6c 65 | 49 6e 66 6f 20 74 68 65 | setFile|Info the|
|000035f0| 50 61 74 68 20 26 20 22 | 4f 6e 41 63 63 74 41 72 |Path & "|OnAcctAr|
|00003600| 63 68 22 20 26 26 20 74 | 68 65 44 61 74 65 28 29 |ch" && t|heDate()|
|00003610| 2c 74 79 70 65 2c 22 4f | 4d 61 6e 22 0d 20 20 20 |,type,"O|Man".   |
|00003620| 20 65 6e 64 20 69 66 0d | 20 20 20 20 0d 20 20 20 | end if.|    .   |
|00003630| 20 70 75 73 68 20 63 61 | 72 64 0d 20 20 20 20 73 | push ca|rd.    s|
|00003640| 65 74 20 6c 6f 63 6b 4d | 65 73 73 61 67 65 73 20 |et lockM|essages |
|00003650| 74 6f 20 74 72 75 65 0d | 20 20 20 20 6c 6f 63 6b |to true.|    lock|
|00003660| 20 73 63 72 65 65 6e 0d | 20 20 20 20 67 6f 20 63 | screen.|    go c|
|00003670| 61 72 64 20 31 0d 20 20 | 20 20 67 65 74 20 74 68 |ard 1.  |  get th|
|00003680| 65 44 61 74 65 28 29 0d | 20 20 20 20 63 6f 6e 76 |eDate().|    conv|
|00003690| 65 72 74 20 69 74 20 74 | 6f 20 73 65 63 6f 6e 64 |ert it t|o second|
|000036a0| 73 0d 20 20 20 20 70 75 | 74 20 69 74 20 69 6e 74 |s.    pu|t it int|
|000036b0| 6f 20 66 6c 64 20 22 6c | 61 73 74 41 72 63 68 69 |o fld "l|astArchi|
|000036c0| 76 65 44 61 74 65 22 0d | 20 20 20 20 70 75 74 20 |veDate".|    put |
|000036d0| 6c 61 73 74 20 77 6f 72 | 64 20 6f 66 20 74 68 65 |last wor|d of the|
|000036e0| 20 6c 6f 6e 67 20 64 61 | 74 65 20 69 6e 74 6f 20 | long da|te into |
|000036f0| 66 6c 64 20 22 79 65 61 | 72 22 0d 20 20 20 20 0d |fld "yea|r".    .|
|00003700| 20 20 20 20 67 6f 20 73 | 74 61 63 6b 20 22 4f 6e |    go s|tack "On|
|00003710| 41 63 63 74 41 72 63 68 | 22 20 26 26 20 74 68 65 |AcctArch|" && the|
|00003720| 44 61 74 65 28 29 0d 20 | 20 20 20 72 65 70 65 61 |Date(). |   repea|
|00003730| 74 20 66 6f 72 20 74 68 | 65 20 6e 75 6d 62 65 72 |t for th|e number|
|00003740| 20 6f 66 20 63 61 72 64 | 73 20 6f 66 20 62 67 20 | of card|s of bg |
|00003750| 22 69 6e 76 6f 69 63 65 | 22 0d 20 20 20 20 20 20 |"invoice|".      |
|00003760| 73 65 74 20 63 75 72 73 | 6f 72 20 74 6f 20 62 75 |set curs|or to bu|
|00003770| 73 79 0d 20 20 20 20 20 | 20 69 66 20 66 6c 64 20 |sy.     | if fld |
|00003780| 22 70 6f 73 74 65 64 53 | 74 61 74 75 73 22 20 69 |"postedS|tatus" i|
|00003790| 73 20 65 6d 70 74 79 20 | 74 68 65 6e 0d 20 20 20 |s empty |then.   |
|000037a0| 20 20 20 20 20 69 66 20 | 74 68 65 20 6e 75 6d 62 |     if |the numb|
|000037b0| 65 72 20 6f 66 20 63 61 | 72 64 73 20 6f 66 20 74 |er of ca|rds of t|
|000037c0| 68 69 73 20 62 67 20 3d | 20 31 20 74 68 65 6e 20 |his bg =| 1 then |
|000037d0| 65 78 69 74 20 72 65 70 | 65 61 74 0d 20 20 20 20 |exit rep|eat.    |
|000037e0| 20 20 20 20 73 65 6e 64 | 20 22 64 6f 4d 65 6e 75 |    send| "doMenu|
|000037f0| 20 64 65 6c 65 74 65 20 | 63 61 72 64 22 20 74 6f | delete |card" to|
|00003800| 20 68 79 70 65 72 43 61 | 72 64 0d 20 20 20 20 20 | hyperCa|rd.     |
|00003810| 20 65 6c 73 65 0d 20 20 | 20 20 20 20 20 20 67 6f | else.  |      go|
|00003820| 20 6e 65 78 74 20 63 61 | 72 64 20 6f 66 20 74 68 | next ca|rd of th|
|00003830| 69 73 20 62 67 0d 20 20 | 20 20 20 20 65 6e 64 20 |is bg.  |    end |
|00003840| 69 66 0d 20 20 20 20 65 | 6e 64 20 72 65 70 65 61 |if.    e|nd repea|
|00003850| 74 0d 20 20 20 20 70 6f | 70 20 63 61 72 64 0d 20 |t.    po|p card. |
|00003860| 20 20 20 75 6e 6c 6f 63 | 6b 20 73 63 72 65 65 6e |   unloc|k screen|
|00003870| 0d 20 20 65 6e 64 20 69 | 66 0d 65 6e 64 20 73 61 |.  end i|f.end sa|
|00003880| 76 65 41 6e 41 72 63 68 | 69 76 65 0d 0d 66 75 6e |veAnArch|ive..fun|
|00003890| 63 74 69 6f 6e 20 63 68 | 65 63 6b 57 6f 72 6b 69 |ction ch|eckWorki|
|000038a0| 6e 67 43 6f 70 79 0d 20 | 20 67 6c 6f 62 61 6c 20 |ngCopy. | global |
|000038b0| 41 70 70 6c 54 79 70 65 | 2c 46 69 6c 65 54 79 70 |ApplType|,FileTyp|
|000038c0| 65 0d 20 20 69 66 20 46 | 69 6c 65 54 79 70 65 20 |e.  if F|ileType |
|000038d0| 69 73 20 22 61 72 63 68 | 69 76 65 22 20 74 68 65 |is "arch|ive" the|
|000038e0| 6e 0d 20 20 20 20 61 6e | 73 77 65 72 20 22 54 68 |n.    an|swer "Th|
|000038f0| 69 73 20 61 72 63 68 69 | 76 65 20 63 6f 70 79 20 |is archi|ve copy |
|00003900| 6f 66 20 4f 6e 41 63 63 | 6f 75 6e 74 20 63 61 6e |of OnAcc|ount can|
|00003910| 6e 6f 74 20 62 65 20 75 | 73 65 64 22 26 26 c2 0d |not be u|sed"&&..|
|00003920| 20 20 20 20 22 66 6f 72 | 20 6e 65 77 20 74 72 61 |    "for| new tra|
|00003930| 6e 73 61 63 74 69 6f 6e | 73 2e 20 20 50 6c 65 61 |nsaction|s.  Plea|
|00003940| 73 65 20 6f 70 65 6e 20 | 4f 6e 41 63 63 6f 75 6e |se open |OnAccoun|
|00003950| 74 20 74 6f 20 65 6e 74 | 65 72 22 26 26 c2 0d 20 |t to ent|er"&&.. |
|00003960| 20 20 20 22 6e 65 77 20 | 74 72 61 6e 73 61 63 74 |   "new |transact|
|00003970| 69 6f 6e 73 2e 22 20 77 | 69 74 68 20 22 43 61 6e |ions." w|ith "Can|
|00003980| 63 65 6c 22 20 6f 72 20 | 22 4f 70 65 6e 22 0d 20 |cel" or |"Open". |
|00003990| 20 20 20 69 66 20 69 74 | 20 69 73 20 22 63 61 6e |   if it| is "can|
|000039a0| 63 65 6c 22 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |cel" the|n.      |
|000039b0| 73 65 6c 65 63 74 20 65 | 6d 70 74 79 0d 20 20 20 |select e|mpty.   |
|000039c0| 20 20 20 65 78 69 74 20 | 74 6f 20 68 79 70 65 72 |   exit |to hyper|
|000039d0| 43 61 72 64 0d 20 20 20 | 20 65 6c 73 65 20 69 66 |Card.   | else if|
|000039e0| 20 69 74 20 69 73 20 22 | 6f 70 65 6e 22 20 74 68 | it is "|open" th|
|000039f0| 65 6e 0d 20 20 20 20 20 | 20 69 66 20 41 70 70 6c |en.     | if Appl|
|00003a00| 54 79 70 65 20 69 73 20 | 22 4f 6e 41 63 63 6f 75 |Type is |"OnAccou|
|00003a10| 6e 74 22 20 74 68 65 6e | 0d 20 20 20 20 20 20 20 |nt" then|.       |
|00003a20| 20 67 6f 20 68 6f 6d 65 | 0d 20 20 20 20 20 20 65 | go home|.      e|
|00003a30| 6c 73 65 0d 20 20 20 20 | 20 20 20 20 67 6f 20 73 |lse.    |    go s|
|00003a40| 74 61 63 6b 20 22 4f 6e | 41 63 63 6f 75 6e 74 22 |tack "On|Account"|
|00003a50| 0d 20 20 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |.      e|nd if.  |
|00003a60| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 72 65 74 |  end if|.    ret|
|00003a70| 75 72 6e 20 66 61 6c 73 | 65 0d 20 20 65 6c 73 65 |urn fals|e.  else|
|00003a80| 0d 20 20 20 20 72 65 74 | 75 72 6e 20 74 72 75 65 |.    ret|urn true|
|00003a90| 0d 20 20 65 6e 64 20 69 | 66 0d 65 6e 64 20 63 68 |.  end i|f.end ch|
|00003aa0| 65 63 6b 57 6f 72 6b 69 | 6e 67 43 6f 70 79 0d 0d |eckWorki|ngCopy..|
|00003ab0| 6f 6e 20 61 6e 73 77 65 | 72 43 61 6e 74 44 65 6c |on answe|rCantDel|
|00003ac0| 65 74 65 4c 61 73 74 49 | 6e 76 0d 20 20 62 65 65 |eteLastI|nv.  bee|
|00003ad0| 70 0d 20 20 61 6e 73 77 | 65 72 20 22 54 68 65 20 |p.  answ|er "The |
|00003ae0| 6c 61 73 74 20 69 6e 76 | 6f 69 63 65 20 63 61 6e |last inv|oice can|
|00003af0| 6e 6f 74 20 62 65 20 64 | 65 6c 65 74 65 64 2e 20 |not be d|eleted. |
|00003b00| 20 50 6c 65 61 73 65 20 | 63 72 65 61 74 65 20 61 | Please |create a|
|00003b10| 6e 6f 74 68 65 72 22 26 | 26 c2 0d 20 20 22 69 6e |nother"&|&..  "in|
|00003b20| 76 6f 69 63 65 20 66 69 | 72 73 74 2e 22 20 77 69 |voice fi|rst." wi|
|00003b30| 74 68 20 22 43 61 6e 63 | 65 6c 22 0d 65 6e 64 20 |th "Canc|el".end |
|00003b40| 61 6e 73 77 65 72 43 61 | 6e 74 44 65 6c 65 74 65 |answerCa|ntDelete|
|00003b50| 4c 61 73 74 49 6e 76 0d | 0d 6f 6e 20 61 6e 73 77 |LastInv.|.on answ|
|00003b60| 65 72 49 6e 76 6f 69 63 | 65 46 69 6c 65 46 75 6c |erInvoic|eFileFul|
|00003b70| 6c 0d 20 20 62 65 65 70 | 0d 20 20 61 6e 73 77 65 |l.  beep|.  answe|
|00003b80| 72 20 22 59 6f 75 72 20 | 69 6e 76 6f 69 63 65 20 |r "Your |invoice |
|00003b90| 66 69 6c 65 20 69 73 20 | 66 75 6c 6c 2e 20 20 43 |file is |full.  C|
|00003ba0| 68 6f 6f 73 65 20 44 65 | 6c 65 74 65 20 4f 6c 64 |hoose De|lete Old|
|00003bb0| 22 26 26 c2 0d 20 20 22 | 49 6e 76 6f 69 63 65 73 |"&&..  "|Invoices|
|00003bc0| 2e 2e 2e 20 66 72 6f 6d | 20 74 68 65 20 49 6e 76 |... from| the Inv|
|00003bd0| 6f 69 63 65 73 20 6d 65 | 6e 75 20 74 6f 20 64 65 |oices me|nu to de|
|00003be0| 6c 65 74 65 20 6f 6c 64 | 20 69 6e 76 6f 69 63 65 |lete old| invoice|
|00003bf0| 73 2e 20 22 26 26 c2 0d | 20 20 22 28 43 75 73 74 |s. "&&..|  "(Cust|
|00003c00| 6f 6d 65 72 20 61 63 63 | 6f 75 6e 74 73 20 77 69 |omer acc|ounts wi|
|00003c10| 6c 6c 20 6e 6f 74 20 62 | 65 20 61 66 66 65 63 74 |ll not b|e affect|
|00003c20| 65 64 2e 29 22 20 77 69 | 74 68 20 22 43 61 6e 63 |ed.)" wi|th "Canc|
|00003c30| 65 6c 22 0d 65 6e 64 20 | 61 6e 73 77 65 72 49 6e |el".end |answerIn|
|00003c40| 76 6f 69 63 65 46 69 6c | 65 46 75 6c 6c 0d 0d 6f |voiceFil|eFull..o|
|00003c50| 6e 20 61 6e 73 77 65 72 | 49 6e 76 46 69 6c 65 46 |n answer|InvFileF|
|00003c60| 75 6c 6c 0d 20 20 62 65 | 65 70 0d 20 20 61 6e 73 |ull.  be|ep.  ans|
|00003c70| 77 65 72 20 22 59 6f 75 | 72 20 69 6e 76 65 6e 74 |wer "You|r invent|
|00003c80| 6f 72 79 20 6c 69 73 74 | 20 69 73 20 66 75 6c 6c |ory list| is full|
|00003c90| 2e 20 20 50 6c 65 61 73 | 65 22 26 26 c2 0d 20 20 |.  Pleas|e"&&..  |
|00003ca0| 22 64 65 6c 65 74 65 20 | 75 6e 75 73 65 64 20 69 |"delete |unused i|
|00003cb0| 6e 76 65 6e 74 6f 72 79 | 20 69 74 65 6d 73 20 74 |nventory| items t|
|00003cc0| 6f 20 6d 61 6b 65 20 72 | 6f 6f 6d 20 66 6f 72 20 |o make r|oom for |
|00003cd0| 6e 65 77 20 6f 6e 65 73 | 2e 22 20 77 69 74 68 20 |new ones|." with |
|00003ce0| 22 43 61 6e 63 65 6c 22 | 0d 65 6e 64 20 61 6e 73 |"Cancel"|.end ans|
|00003cf0| 77 65 72 49 6e 76 46 69 | 6c 65 46 75 6c 6c 0d 0d |werInvFi|leFull..|
|00003d00| 6f 6e 20 61 6e 73 77 65 | 72 43 75 73 74 46 69 6c |on answe|rCustFil|
|00003d10| 65 46 75 6c 6c 0d 20 20 | 62 65 65 70 0d 20 20 61 |eFull.  |beep.  a|
|00003d20| 6e 73 77 65 72 20 22 59 | 6f 75 72 20 63 75 73 74 |nswer "Y|our cust|
|00003d30| 6f 6d 65 72 20 66 69 6c | 65 20 69 73 20 66 75 6c |omer fil|e is ful|
|00003d40| 6c 2e 20 20 50 6c 65 61 | 73 65 22 26 26 c2 0d 20 |l.  Plea|se"&&.. |
|00003d50| 20 22 64 65 6c 65 74 65 | 20 69 6e 61 63 74 69 76 | "delete| inactiv|
|00003d60| 65 20 63 75 73 74 6f 6d | 65 72 20 61 63 63 6f 75 |e custom|er accou|
|00003d70| 6e 74 73 20 74 6f 20 6d | 61 6b 65 20 72 6f 6f 6d |nts to m|ake room|
|00003d80| 20 66 6f 72 20 6e 65 77 | 20 6f 6e 65 73 2e 22 20 | for new| ones." |
|00003d90| 77 69 74 68 20 22 43 61 | 6e 63 65 6c 22 0d 65 6e |with "Ca|ncel".en|
|00003da0| 64 20 61 6e 73 77 65 72 | 43 75 73 74 46 69 6c 65 |d answer|CustFile|
|00003db0| 46 75 6c 6c 0d 0d 6f 6e | 20 6f 70 65 6e 46 69 65 |Full..on| openFie|
|00003dc0| 6c 64 0d 20 20 67 6c 6f | 62 61 6c 20 61 6c 6c 6f |ld.  glo|bal allo|
|00003dd0| 77 54 65 78 74 41 72 72 | 6f 77 73 0d 20 20 70 75 |wTextArr|ows.  pu|
|00003de0| 74 20 74 72 75 65 20 69 | 6e 74 6f 20 61 6c 6c 6f |t true i|nto allo|
|00003df0| 77 54 65 78 74 41 72 72 | 6f 77 73 0d 65 6e 64 20 |wTextArr|ows.end |
|00003e00| 6f 70 65 6e 46 69 65 6c | 64 0d 0d 6f 6e 20 65 78 |openFiel|d..on ex|
|00003e10| 69 74 46 69 65 6c 64 0d | 20 20 67 6c 6f 62 61 6c |itField.|  global|
|00003e20| 20 61 6c 6c 6f 77 54 65 | 78 74 41 72 72 6f 77 73 | allowTe|xtArrows|
|00003e30| 0d 20 20 70 75 74 20 22 | 22 20 69 6e 74 6f 20 61 |.  put "|" into a|
|00003e40| 6c 6c 6f 77 54 65 78 74 | 41 72 72 6f 77 73 0d 65 |llowText|Arrows.e|
|00003e50| 6e 64 20 65 78 69 74 46 | 69 65 6c 64 0d 0d 6f 6e |nd exitF|ield..on|
|00003e60| 20 63 6c 6f 73 65 46 69 | 65 6c 64 0d 20 20 67 6c | closeFi|eld.  gl|
|00003e70| 6f 62 61 6c 20 61 6c 6c | 6f 77 54 65 78 74 41 72 |obal all|owTextAr|
|00003e80| 72 6f 77 73 0d 20 20 70 | 75 74 20 22 22 20 69 6e |rows.  p|ut "" in|
|00003e90| 74 6f 20 61 6c 6c 6f 77 | 54 65 78 74 41 72 72 6f |to allow|TextArro|
|00003ea0| 77 73 0d 65 6e 64 20 63 | 6c 6f 73 65 46 69 65 6c |ws.end c|loseFiel|
|00003eb0| 64 0d 0d 6f 6e 20 61 72 | 72 6f 77 4b 65 79 20 77 |d..on ar|rowKey w|
|00003ec0| 68 61 74 0d 20 20 67 6c | 6f 62 61 6c 20 61 6c 6c |hat.  gl|obal all|
|00003ed0| 6f 77 54 65 78 74 41 72 | 72 6f 77 73 0d 20 20 69 |owTextAr|rows.  i|
|00003ee0| 66 20 61 6c 6c 6f 77 54 | 65 78 74 41 72 72 6f 77 |f allowT|extArrow|
|00003ef0| 73 20 69 73 20 65 6d 70 | 74 79 20 74 68 65 6e 0d |s is emp|ty then.|
|00003f00| 20 20 20 20 69 66 20 77 | 68 61 74 20 69 73 20 22 |    if w|hat is "|
|00003f10| 6c 65 66 74 22 20 6f 72 | 20 77 68 61 74 20 69 73 |left" or| what is|
|00003f20| 20 22 75 70 22 20 74 68 | 65 6e 0d 20 20 20 20 20 | "up" th|en.     |
|00003f30| 20 67 6f 20 70 72 65 76 | 20 63 61 72 64 20 6f 66 | go prev| card of|
|00003f40| 20 74 68 69 73 20 62 67 | 0d 20 20 20 20 65 6c 73 | this bg|.    els|
|00003f50| 65 20 69 66 20 77 68 61 | 74 20 69 73 20 22 72 69 |e if wha|t is "ri|
|00003f60| 67 68 74 22 20 6f 72 20 | 77 68 61 74 20 69 73 20 |ght" or |what is |
|00003f70| 22 64 6f 77 6e 22 20 74 | 68 65 6e 0d 20 20 20 20 |"down" t|hen.    |
|00003f80| 20 20 67 6f 20 6e 65 78 | 74 20 63 61 72 64 20 6f |  go nex|t card o|
|00003f90| 66 20 74 68 69 73 20 62 | 67 0d 20 20 20 20 65 6e |f this b|g.    en|
|00003fa0| 64 20 69 66 0d 20 20 65 | 6c 73 65 0d 20 20 20 20 |d if.  e|lse.    |
|00003fb0| 70 61 73 73 20 61 72 72 | 6f 77 4b 65 79 0d 20 20 |pass arr|owKey.  |
|00003fc0| 65 6e 64 20 69 66 0d 65 | 6e 64 20 61 72 72 6f 77 |end if.e|nd arrow|
|00003fd0| 4b 65 79 0d 0d 2d 2d 20 | 6e 65 77 20 76 65 72 73 |Key..-- |new vers|
|00003fe0| 69 6f 6e 20 31 2e 31 62 | 20 2d 2d 0d 66 75 6e 63 |ion 1.1b| --.func|
|00003ff0| 74 69 6f 6e 20 72 6f 75 | 6e 64 55 70 20 61 6d 6f |tion rou|ndUp amo|
|00004000| 75 6e 74 0d 20 20 73 65 | 74 20 74 68 65 20 6e 75 |unt.  se|t the nu|
|00004010| 6d 62 65 72 46 6f 72 6d | 61 74 20 74 6f 20 22 30 |mberForm|at to "0|
|00004020| 2e 30 30 30 22 0d 20 20 | 69 66 20 74 68 65 20 6c |.000".  |if the l|
|00004030| 61 73 74 20 63 68 61 72 | 20 6f 66 20 61 6d 6f 75 |ast char| of amou|
|00004040| 6e 74 20 3d 20 35 20 74 | 68 65 6e 20 61 64 64 20 |nt = 5 t|hen add |
|00004050| 30 2e 30 30 31 20 74 6f | 20 61 6d 6f 75 6e 74 0d |0.001 to| amount.|
|00004060| 20 20 73 65 74 20 74 68 | 65 20 6e 75 6d 62 65 72 |  set th|e number|
|00004070| 46 6f 72 6d 61 74 20 74 | 6f 20 22 30 2e 30 30 22 |Format t|o "0.00"|
|00004080| 0d 20 20 72 65 74 75 72 | 6e 20 61 6d 6f 75 6e 74 |.  retur|n amount|
|00004090| 0d 65 6e 64 20 72 6f 75 | 6e 64 55 70 0d 0d 2d 2d |.end rou|ndUp..--|
|000040a0| 20 6e 65 77 20 76 65 72 | 73 69 6f 6e 20 31 2e 31 | new ver|sion 1.1|
|000040b0| 68 20 2d 2d 0d 66 75 6e | 63 74 69 6f 6e 20 74 68 |h --.fun|ction th|
|000040c0| 65 44 61 74 65 0d 20 20 | 67 65 74 20 74 68 65 20 |eDate.  |get the |
|000040d0| 73 65 63 6f 6e 64 73 0d | 20 20 63 6f 6e 76 65 72 |seconds.|  conver|
|000040e0| 74 20 69 74 20 74 6f 20 | 64 61 74 65 0d 20 20 72 |t it to |date.  r|
|000040f0| 65 74 75 72 6e 20 69 74 | 0d 65 6e 64 20 74 68 65 |eturn it|.end the|
|00004100| 44 61 74 65 00 00 00 00 | 00 00 00 00 00 00 00 00 |Date....|........|
|00004110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004280| 00 00 02 00 4d 41 53 54 | ff ff ff ff 00 00 00 00 |....MAST|........|
|00004290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042a0| 00 02 ca 0d 00 02 8a 72 | 00 02 ec 41 00 02 e5 a9 |.......r|...A....|
|000042b0| 00 02 e2 6a 00 02 e3 7e | 00 02 6b 2c 00 00 00 00 |...j...~|..k,....|
|000042c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004480| 00 00 09 60 46 52 45 45 | 00 00 00 00 00 00 00 00 |...`FREE|........|
|00004490| 0f 46 72 65 65 20 4f 62 | 6a 65 63 74 20 20 20 20 |.Free Ob|ject    |
|000044a0| 20 69 6e 74 6f 20 6e 75 | 6d 49 74 65 6d 73 0d 72 | into nu|mItems.r|
|000044b0| 65 70 65 61 74 20 75 6e | 74 69 6c 20 74 68 65 20 |epeat un|til the |
|000044c0| 6d 6f 75 73 65 20 69 73 | 20 75 70 0d 67 65 74 20 |mouse is| up.get |
|000044d0| 28 73 63 72 6f 6c 6c 20 | 6f 66 20 6c 61 73 74 20 |(scroll |of last |
|000044e0| 69 74 65 6d 20 6f 66 20 | 66 69 65 6c 64 4c 69 73 |item of |fieldLis|
|000044f0| 74 29 20 2d 20 62 61 73 | 65 4c 69 6e 65 53 69 7a |t) - bas|eLineSiz|
|00004500| 65 0d 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 72 65 |e.lock s|creen.re|
|00004510| 70 65 61 74 20 77 69 74 | 68 20 63 6f 75 6e 74 20 |peat wit|h count |
|00004520| 3d 20 31 20 74 6f 20 6e | 75 6d 49 74 65 6d 73 0d |= 1 to n|umItems.|
|00004530| 73 65 74 20 73 63 72 6f | 6c 6c 20 6f 66 20 28 69 |set scro|ll of (i|
|00004540| 74 65 6d 20 63 6f 75 6e | 74 20 6f 66 20 66 69 65 |tem coun|t of fie|
|00004550| 6c 64 4c 69 73 74 29 20 | 74 6f 20 69 74 0d 65 6e |ldList) |to it.en|
|00004560| 64 20 72 65 70 65 61 74 | 0d 75 6e 6c 6f 63 6b 20 |d repeat|.unlock |
|00004570| 73 63 72 65 65 6e 0d 65 | 6e 64 20 72 65 70 65 61 |screen.e|nd repea|
|00004580| 74 0d 65 6e 64 20 6d 6f | 75 73 65 44 6f 77 6e 0d |t.end mo|useDown.|
|00004590| 0d 66 75 6e 63 74 69 6f | 6e 20 74 68 65 46 69 65 |.functio|n theFie|
|000045a0| 6c 64 73 0d 72 65 74 75 | 72 6e 20 22 66 6c 64 20 |lds.retu|rn "fld |
|000045b0| 64 61 74 65 2c 66 6c 64 | 20 74 72 61 6e 73 61 63 |date,fld| transac|
|000045c0| 74 69 6f 6e 2c 66 6c 64 | 20 63 68 61 72 67 65 2c |tion,fld| charge,|
|000045d0| 66 6c 64 20 70 61 79 6d | 65 6e 74 2c 22 26 c2 0d |fld paym|ent,"&..|
|000045e0| 22 66 6c 64 20 62 61 6c | 61 6e 63 65 22 0d 65 6e |"fld bal|ance".en|
|000045f0| 64 20 74 68 65 46 69 65 | 6c 64 73 00 02 08 00 2b |d theFie|lds....+|
|00004600| 01 00 01 22 01 e4 01 32 | 01 f5 20 00 00 00 16 18 |..."...2|.. .....|
|00004610| 00 01 00 00 00 0c 00 00 | 00 10 00 00 6f 6e 20 6d |........|....on m|
|00004620| 6f 75 73 65 44 6f 77 6e | 0d 70 75 74 20 74 68 65 |ouseDown|.put the|
|00004630| 46 69 65 6c 64 73 28 29 | 20 69 6e 74 6f 20 66 69 |Fields()| into fi|
|00004640| 65 6c 64 4c 69 73 74 0d | 70 75 74 20 74 68 65 20 |eldList.|put the |
|00004650| 74 65 78 74 48 65 69 67 | 68 74 20 6f 66 20 69 74 |textHeig|ht of it|
|00004660| 65 6d 20 31 20 6f 66 20 | 66 69 65 6c 64 4c 69 73 |em 1 of |fieldLis|
|00004670| 74 20 69 6e 74 6f 20 62 | 61 73 65 4c 69 6e 65 53 |t into b|aseLineS|
|00004680| 69 7a 65 0d 70 75 74 20 | 74 68 65 20 6e 75 6d 62 |ize.put |the numb|
|00004690| 65 72 20 6f 66 20 69 74 | 65 6d 73 20 69 6e 20 66 |er of it|ems in f|
|000046a0| 69 65 6c 64 4c 69 73 74 | 20 69 6e 74 6f 20 6e 75 |ieldList| into nu|
|000046b0| 6d 49 74 65 6d 73 0d 72 | 65 70 65 61 74 20 75 6e |mItems.r|epeat un|
|000046c0| 74 69 6c 20 74 68 65 20 | 6d 6f 75 73 65 20 69 73 |til the |mouse is|
|000046d0| 20 75 70 0d 67 65 74 20 | 28 73 63 72 6f 6c 6c 20 | up.get |(scroll |
|000046e0| 6f 66 20 6c 61 73 74 20 | 69 74 65 6d 20 6f 66 20 |of last |item of |
|000046f0| 66 69 65 6c 64 4c 69 73 | 74 29 20 2b 20 62 61 73 |fieldLis|t) + bas|
|00004700| 65 4c 69 6e 65 53 69 7a | 65 0d 6c 6f 63 6b 20 73 |eLineSiz|e.lock s|
|00004710| 63 72 65 65 6e 0d 72 65 | 70 65 61 74 20 77 69 74 |creen.re|peat wit|
|00004720| 68 20 63 6f 75 6e 74 20 | 3d 20 31 20 74 6f 20 6e |h count |= 1 to n|
|00004730| 75 6d 49 74 65 6d 73 0d | 73 65 74 20 73 63 72 6f |umItems.|set scro|
|00004740| 6c 6c 20 6f 66 20 28 69 | 74 65 6d 20 63 6f 75 6e |ll of (i|tem coun|
|00004750| 74 20 6f 66 20 66 69 65 | 6c 64 4c 69 73 74 29 20 |t of fie|ldList) |
|00004760| 74 6f 20 69 74 0d 65 6e | 64 20 72 65 70 65 61 74 |to it.en|d repeat|
|00004770| 0d 75 6e 6c 6f 63 6b 20 | 73 63 72 65 65 6e 0d 65 |.unlock |screen.e|
|00004780| 6e 64 20 72 65 70 65 61 | 74 0d 65 6e 64 20 6d 6f |nd repea|t.end mo|
|00004790| 75 73 65 44 6f 77 6e 0d | 0d 66 75 6e 63 74 69 6f |useDown.|.functio|
|000047a0| 6e 20 74 68 65 46 69 65 | 6c 64 73 0d 72 65 74 75 |n theFie|lds.retu|
|000047b0| 72 6e 20 22 66 6c 64 20 | 64 61 74 65 2c 66 6c 64 |rn "fld |date,fld|
|000047c0| 20 74 72 61 6e 73 61 63 | 74 69 6f 6e 2c 66 6c 64 | transac|tion,fld|
|000047d0| 20 63 68 61 72 67 65 2c | 66 6c 64 20 70 61 79 6d | charge,|fld paym|
|000047e0| 65 6e 74 2c 22 26 c2 0d | 22 66 6c 64 20 62 61 6c |ent,"&..|"fld bal|
|000047f0| 61 6e 63 65 22 0d 65 6e | 64 20 74 68 65 46 69 65 |ance".en|d theFie|
|00004800| 6c 64 73 00 00 58 00 26 | 02 8d 00 02 00 47 00 13 |lds..X.&|.....G..|
|00004810| 00 89 00 02 00 00 00 00 | 00 00 00 03 00 0c 00 00 |........|........|
|00004820| 00 10 4c 61 73 74 53 74 | 61 74 65 6d 65 6e 74 44 |..LastSt|atementD|
|00004830| 61 74 65 00 00 6f 6e 20 | 6d 6f 75 73 65 55 70 0d |ate..on |mouseUp.|
|00004840| 70 75 74 20 22 22 20 69 | 6e 74 6f 20 6d 65 0d 65 |put "" i|nto me.e|
|00004850| 6e 64 20 6d 6f 75 73 65 | 55 70 00 00 00 4c 00 23 |nd mouse|Up...L.#|
|00004860| 02 ad 00 61 00 0a 01 33 | 01 00 00 07 00 00 00 00 |...a...3|........|
|00004870| 00 00 00 03 00 0a 01 00 | 00 0d 43 75 73 74 6f 6d |........|..Custom|
|00004880| 65 72 4c 69 73 74 00 00 | 6f 6e 20 6d 6f 75 73 65 |erList..|on mouse|
|00004890| 55 70 0d 68 69 64 65 20 | 6d 65 0d 65 6e 64 20 6d |Up.hide |me.end m|
|000048a0| 6f 75 73 65 55 70 00 00 | 00 26 00 30 02 a1 00 92 |ouseUp..|.&.0....|
|000048b0| 00 0a 00 c4 00 52 00 07 | 00 00 00 00 ff ff 00 10 |.....R..|........|
|000048c0| 00 0a 01 00 00 0d 44 61 | 74 65 32 00 00 00 00 30 |......Da|te2....0|
|000048d0| 00 31 02 a1 00 92 00 41 | 00 c4 01 2f 00 07 00 00 |.1.....A|.../....|
|000048e0| 00 00 00 00 00 10 00 0a | 01 00 00 0d 54 72 61 6e |........|....Tran|
|000048f0| 73 61 63 74 69 6f 6e 32 | 00 00 0d 0d 0d 00 00 28 |saction2|.......(|
|00004900| 00 32 02 a1 00 92 01 1e | 00 c4 01 70 00 07 00 00 |.2......|...p....|
|00004910| 00 00 ff ff 00 10 00 0a | 01 00 00 0d 43 68 61 72 |........|....Char|
|00004920| 67 65 32 00 00 00 00 2a | 00 33 02 a1 00 92 01 5f |ge2....*|.3....._|
|00004930| 00 c4 01 b1 00 07 00 00 | 00 00 ff ff 00 10 00 0a |........|........|
|00004940| 01 00 00 0d 50 61 79 6d | 65 6e 74 32 00 00 00 00 |....Paym|ent2....|
|00004950| 00 46 00 4f 01 80 00 00 | 00 00 01 56 02 00 10 00 |.F.O....|...V....|
|00004960| 00 00 00 00 00 01 00 00 | 00 0c 00 00 00 10 4c 69 |........|......Li|
|00004970| 73 74 43 6f 76 65 72 00 | 00 6f 6e 20 6d 6f 75 73 |stCover.|.on mous|
|00004980| 65 55 70 0d 62 65 65 70 | 0d 65 6e 64 20 6d 6f 75 |eUp.beep|.end mou|
|00004990| 73 65 55 70 00 00 02 40 | 00 34 02 a1 00 92 01 a0 |seUp...@|.4......|
|000049a0| 00 c4 01 f6 00 07 00 00 | 00 00 ff ff 00 10 00 0a |........|........|
|000049b0| 01 00 00 0d 42 61 6c 61 | 6e 63 65 32 00 00 6f 6e |....Bala|nce2..on|
|000049c0| 20 6d 6f 75 73 65 57 69 | 74 68 69 6e 0d 70 75 74 | mouseWi|thin.put|
|000049d0| 20 74 68 65 46 69 65 6c | 64 73 28 29 20 69 6e 74 | theFiel|ds() int|
|000049e0| 6f 20 66 69 65 6c 64 4c | 69 73 74 0d 69 66 20 74 |o fieldL|ist.if t|
|000049f0| 68 65 20 73 65 6c 65 63 | 74 65 64 46 69 65 6c 64 |he selec|tedField|
|00004a00| 20 69 73 20 6e 6f 74 20 | 65 6d 70 74 79 20 74 68 | is not |empty th|
|00004a10| 65 6e 20 65 78 69 74 20 | 6d 6f 75 73 65 57 69 74 |en exit |mouseWit|
|00004a20| 68 69 6e 0d 67 65 74 20 | 74 68 65 20 73 63 72 6f |hin.get |the scro|
|00004a30| 6c 6c 20 6f 66 20 6c 61 | 73 74 20 69 74 65 6d 20 |ll of la|st item |
|00004a40| 6f 66 20 66 69 65 6c 64 | 4c 69 73 74 0d 69 66 20 |of field|List.if |
|00004a50| 69 74 20 ad 20 74 68 65 | 20 73 63 72 6f 6c 6c 20 |it . the| scroll |
|00004a60| 6f 66 20 66 69 72 73 74 | 20 69 74 65 6d 20 6f 66 |of first| item of|
|00004a70| 20 66 69 65 6c 64 4c 69 | 73 74 20 74 68 65 6e 0d | fieldLi|st then.|
|00004a80| 70 75 74 20 74 68 65 20 | 74 65 78 74 48 65 69 67 |put the |textHeig|
|00004a90| 68 74 20 6f 66 20 6c 61 | 73 74 20 69 74 65 6d 20 |ht of la|st item |
|00004aa0| 6f 66 20 66 69 65 6c 64 | 4c 69 73 74 20 69 6e 74 |of field|List int|
|00004ab0| 6f 20 62 61 73 65 4c 69 | 6e 65 53 69 7a 65 0d 6c |o baseLi|neSize.l|
|00004ac0| 6f 63 6b 20 73 63 72 65 | 65 6e 0d 72 65 70 65 61 |ock scre|en.repea|
|00004ad0| 74 20 77 69 74 68 20 63 | 6f 75 6e 74 20 3d 20 31 |t with c|ount = 1|
|00004ae0| 20 74 6f 20 28 6e 75 6d | 62 65 72 20 6f 66 20 69 | to (num|ber of i|
|00004af0| 74 65 6d 73 20 69 6e 20 | 66 69 65 6c 64 4c 69 73 |tems in |fieldLis|
|00004b00| 74 20 2d 20 31 29 0d 73 | 65 74 20 73 63 72 6f 6c |t - 1).s|et scrol|
|00004b10| 6c 20 6f 66 20 28 69 74 | 65 6d 20 63 6f 75 6e 74 |l of (it|em count|
|00004b20| 20 6f 66 20 66 69 65 6c | 64 4c 69 73 74 29 20 74 | of fiel|dList) t|
|00004b30| 6f 20 69 74 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |o it.end| repeat.|
|00004b40| 75 6e 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 65 6e |unlock s|creen.en|
|00004b50| 64 20 69 66 0d 65 6e 64 | 20 6d 6f 75 73 65 57 69 |d if.end| mouseWi|
|00004b60| 74 68 69 6e 0d 0d 66 75 | 6e 63 74 69 6f 6e 20 74 |thin..fu|nction t|
|00004b70| 68 65 46 69 65 6c 64 73 | 0d 72 65 74 75 72 6e 20 |heFields|.return |
|00004b80| 22 66 6c 64 20 64 61 74 | 65 32 2c 66 6c 64 20 74 |"fld dat|e2,fld t|
|00004b90| 72 61 6e 73 61 63 74 69 | 6f 6e 32 2c 66 6c 64 20 |ransacti|on2,fld |
|00004ba0| 63 68 61 72 67 65 32 2c | 66 6c 64 20 70 61 79 6d |charge2,|fld paym|
|00004bb0| 65 6e 74 32 2c 22 26 c2 | 0d 22 66 6c 64 20 62 61 |ent2,"&.|."fld ba|
|00004bc0| 6c 61 6e 63 65 32 22 0d | 65 6e 64 20 74 68 65 46 |lance2".|end theF|
|00004bd0| 69 65 6c 64 73 00 00 5a | 00 36 02 85 00 02 00 de |ields..Z|.6......|
|00004be0| 00 13 01 23 00 02 00 00 | 00 00 00 00 00 03 00 0c |...#....|........|
|00004bf0| 00 00 00 10 46 69 6e 61 | 6e 63 65 43 68 61 72 67 |....Fina|nceCharg|
|00004c00| 65 4e 6f 74 69 63 65 00 | 00 6f 6e 20 6d 6f 75 73 |eNotice.|.on mous|
|00004c10| 65 55 70 0d 70 75 74 20 | 22 22 20 69 6e 74 6f 20 |eUp.put |"" into |
|00004c20| 6d 65 0d 65 6e 64 20 6d | 6f 75 73 65 55 70 00 00 |me.end m|ouseUp..|
|00004c30| 00 2e 00 51 02 85 00 3a | 00 36 01 28 01 cd 00 02 |...Q...:|.6.(....|
|00004c40| 00 00 00 00 00 00 00 03 | 00 0c 00 00 00 10 4c 69 |........|......Li|
|00004c50| 73 74 42 61 63 6b 64 72 | 6f 70 32 00 00 00 00 2e |stBackdr|op2.....|
|00004c60| 00 50 02 85 00 3d 00 39 | 01 25 01 ca 00 02 00 00 |.P...=.9|.%......|
|00004c70| 00 00 00 00 00 03 00 0c | 00 00 00 10 4c 69 73 74 |........|....List|
|00004c80| 42 61 63 6b 64 72 6f 70 | 31 00 00 00 00 30 00 38 |Backdrop|1....0.8|
|00004c90| 02 8d 00 3e 00 3a 01 10 | 01 c9 00 02 00 00 00 00 |...>.:..|........|
|00004ca0| 00 00 00 00 00 0c 00 00 | 00 10 48 65 61 64 65 72 |........|..Header|
|00004cb0| 42 61 63 6b 64 72 6f 70 | 00 00 00 00 00 44 00 39 |Backdrop|.....D.9|
|00004cc0| 02 ac 00 68 00 4a 00 e5 | 01 ba 00 02 00 00 00 00 |...h.J..|........|
|00004cd0| ff ff 00 03 00 0c 00 00 | 00 10 53 74 61 74 65 6d |........|..Statem|
|00004ce0| 65 6e 74 48 65 61 64 65 | 72 00 00 6f 6e 20 74 61 |entHeade|r..on ta|
|00004cf0| 62 4b 65 79 0d 65 6e 64 | 20 74 61 62 4b 65 79 00 |bKey.end| tabKey.|
|00004d00| 02 90 00 3a 01 80 01 10 | 00 3a 01 24 01 06 a0 02 |...:....|.:.$....|
|00004d10| 00 00 00 00 00 01 00 00 | 00 0c 00 00 00 10 43 61 |........|......Ca|
|00004d20| 6e 63 65 6c 00 00 6f 6e | 20 6d 6f 75 73 65 55 70 |ncel..on| mouseUp|
|00004d30| 0d 73 65 74 20 63 75 72 | 73 6f 72 20 74 6f 20 77 |.set cur|sor to w|
|00004d40| 61 74 63 68 0d 6c 6f 63 | 6b 20 73 63 72 65 65 6e |atch.loc|k screen|
|00004d50| 0d 73 65 74 20 73 68 61 | 72 65 64 54 65 78 74 20 |.set sha|redText |
|00004d60| 6f 66 20 66 6c 64 20 22 | 73 74 61 74 65 6d 65 6e |of fld "|statemen|
|00004d70| 74 48 65 61 64 65 72 22 | 20 74 6f 20 74 72 75 65 |tHeader"| to true|
|00004d80| 0d 69 66 20 66 6c 64 20 | 22 73 74 61 74 65 6d 65 |.if fld |"stateme|
|00004d90| 6e 74 48 65 61 64 65 72 | 22 20 69 73 20 6e 6f 74 |ntHeader|" is not|
|00004da0| 20 65 6d 70 74 79 20 74 | 68 65 6e 0d 73 65 6c 65 | empty t|hen.sele|
|00004db0| 63 74 20 74 65 78 74 20 | 6f 66 20 66 6c 64 20 22 |ct text |of fld "|
|00004dc0| 73 74 61 74 65 6d 65 6e | 74 48 65 61 64 65 72 22 |statemen|tHeader"|
|00004dd0| 0d 64 6f 4d 65 6e 75 20 | 22 63 6f 70 79 20 74 65 |.doMenu |"copy te|
|00004de0| 00 00 03 e0 42 4d 41 50 | 00 00 0e 2c 00 00 00 00 |....BMAP|...,....|
|00004df0| 00 00 00 00 00 01 00 00 | 00 00 00 00 00 78 01 40 |........|.....x.@|
|00004e00| 00 02 00 02 00 76 01 3e | 00 02 00 02 00 76 01 3e |.....v.>|.....v.>|
|00004e10| 00 00 00 00 00 00 00 00 | 00 00 00 38 00 00 03 58 |........|...8...X|
|00004e20| 8d 10 20 e2 16 02 85 10 | 08 e2 16 08 ae 85 12 02 |.. .....|........|
|00004e30| e1 1e 08 06 af 85 e2 21 | 08 04 05 af 85 e1 18 02 |.......!|........|
|00004e40| 19 04 05 af 85 12 02 e1 | 15 02 0f bf 85 b1 85 10 |........|........|
|00004e50| 08 e2 16 08 85 00 00 00 | 8c 10 20 e2 16 02 85 89 |........|.. .....|
|00004e60| 10 30 e2 16 0c b1 85 8a | 22 01 fb 32 1e 1e 03 c1 |.0......|"..2....|
|00004e70| e0 00 0c 00 03 b3 00 03 | 15 18 22 60 1c 14 c0 08 |........|.."`....|
|00004e80| 8b 13 63 42 33 33 03 30 | 23 06 03 2a 60 30 0d 8a |..cB33.0|#..*`0..|
|00004e90| 24 e1 e0 13 03 c3 67 8c | f8 09 30 1e 03 1c 06 cf |$.....g.|..0.....|
|00004ea0| 0f 99 99 b3 c3 80 48 f1 | b0 66 38 cf 87 c0 06 24 |......H.|.f8....$|
|00004eb0| d2 d0 34 ef 40 34 c1 09 | 00 2d 00 2e 01 d6 96 22 |..4.@4..|.-....."|
|00004ec0| 75 a5 c1 80 49 68 70 00 | 5c 03 4b 07 47 0c 00 d0 |u...Ihp.|\.K.G...|
|00004ed0| 8f 26 0a 01 14 40 34 40 | 00 14 09 8b 15 c0 14 84 |.&...@4@|........|
|00004ee0| 54 0c 00 2e 01 06 23 41 | 80 33 40 00 5c 09 8a 15 |T.....#A|.3@.\...|
|00004ef0| f0 69 0f 00 12 00 07 80 | 22 01 e0 15 24 09 15 10 |.i......|"...$...|
|00004f00| 39 01 00 28 12 80 13 20 | 15 50 09 34 02 f0 2d 22 |9..(... |.P.4..-"|
|00004f10| d0 0b 24 2f 00 c2 3a 00 | 17 96 16 00 05 e5 80 01 |..$/..:.|........|
|00004f20| 68 00 58 74 00 0b 07 89 | 10 30 e1 23 01 80 1b c0 |h.Xt....|.0.#....|
|00004f30| 15 0c 10 30 e1 23 01 80 | 2a 08 c0 15 0c 10 30 e1 |...0.#..|*.....0.|
|00004f40| 2f 07 80 15 0c 10 30 e2 | 16 0c a3 85 8a 33 78 00 |/.....0.|.....3x.|
|00004f50| 78 64 01 8e 88 00 1f 18 | 14 30 13 03 c1 18 0c 00 |xd......|.0......|
|00004f60| 01 81 80 00 c6 07 33 b4 | 00 b4 55 0a 50 00 06 80 |......3.|..U.P...|
|00004f70| 68 03 00 0c 00 01 80 0a | 14 f8 c1 00 70 e1 e3 33 |h.......|....p..3|
|00004f80| e2 40 70 33 f0 f0 e1 c2 | e0 03 1e 1e 3e 03 24 0c |.@p3....|....>.$.|
|00004f90| f8 71 8e 0f 01 21 c3 c0 | 05 14 34 c1 00 b9 72 d0 |.q...!..|..4...r.|
|00004fa0| 00 d2 40 20 42 01 69 e9 | 72 c2 d0 05 2d 2d 0d 00 |..@ B.i.|r...--..|
|00004fb0| 24 00 34 b8 16 16 81 21 | a5 a0 05 35 30 08 10 23 |$.4....!|...50..#|
|00004fc0| 04 88 c1 00 06 80 01 e0 | 50 00 0a 17 28 0b 15 30 |........|P...(..0|
|00004fd0| 18 07 c1 00 61 61 20 c0 | 04 0c 0c 35 90 00 06 22 |....aa .|...5..."|
|00004fe0| 01 80 05 e1 70 78 00 90 | f0 04 0f 0f 75 48 00 07 |....px..|....uH..|
|00004ff0| 80 00 01 e0 05 26 08 10 | 24 01 80 72 08 01 40 10 |.....&..|$..r..@.|
|00005000| 0a 01 01 15 a0 12 80 12 | 20 05 13 b4 62 b9 72 d2 |........| ...b.r.|
|00005010| c0 01 40 33 01 79 61 c1 | d2 f0 05 2f 2f 0d 00 14 |..@3.ya.|...//...|
|00005020| 72 e8 16 17 80 a0 05 e0 | 05 89 10 30 e1 16 30 1f |r.......|...0..0.|
|00005030| 0c 85 10 30 e2 16 0c a4 | 85 8a 38 70 06 06 44 01 |...0....|..8p..D.|
|00005040| e0 01 e0 14 06 e1 18 b0 | 46 02 d0 02 d0 e1 05 53 |........|F......S|
|00005050| 70 f1 ff 0f 01 c2 23 c0 | 38 3c 6c 0f 0e 00 03 e0 |p.....#.|8<l.....|
|00005060| 01 c3 87 8c cf 89 e1 43 | b9 e8 66 96 c1 81 25 a0 |.......C|..f...%.|
|00005070| 58 5a 1c 1e 97 72 d0 02 | e5 cb 40 03 49 e1 23 29 |XZ...r..|..@.I.#)|
|00005080| e0 37 10 1e 05 33 c0 20 | 40 e1 03 43 91 60 00 06 |.7...3. |@..C.`..|
|00005090| 44 18 00 16 12 13 c0 e1 | 05 13 48 22 07 80 13 1e |D.......|..H"....|
|000050a0| 12 09 e1 09 13 a0 13 80 | 13 02 12 14 24 20 40 13 |........|....$ @.|
|000050b0| 30 0f 53 e9 60 00 17 80 | c2 05 a0 58 5e 00 16 1d |0.S.`...|...X^...|
|000050c0| 02 d0 00 02 e5 cb 4b 00 | 05 e1 89 10 30 e2 16 0c |......K.|....0...|
|000050d0| af 85 8a e1 49 03 ff ff | ff c1 ff ff ff ff ff ff |....I...|........|
|000050e0| ff fe 03 e1 19 0c 2a 01 | 80 02 e1 19 10 1b 40 02 |......*.|......@.|
|000050f0| 89 10 30 e1 18 3e 4a 03 | e0 00 0c 8b e1 19 67 2a |..0..>J.|......g*|
|00005100| 07 20 02 89 10 30 e1 18 | 7b 4a 06 f0 00 0c 10 30 |. ...0..|{J.....0|
|00005110| e1 18 72 4a 02 70 00 0c | 10 30 e1 18 74 4a 01 70 |..rJ.p..|.0..tJ.p|
|00005120| 00 0c 85 8a e1 4d 01 e0 | 03 18 07 e1 3d 02 d0 03 |.....M..|....=...|
|00005130| 08 e1 3e 03 33 24 07 e2 | 10 24 07 a4 85 e1 4d 02 |..>.3$..|.$....M.|
|00005140| d2 c0 14 07 e1 4d 01 d1 | f3 0c 07 89 10 30 e1 18 |.....M..|.....0..|
|00005150| 74 4a 01 70 00 0c 85 10 | 30 e1 18 72 4a 02 70 00 |tJ.p....|0..rJ.p.|
|00005160| 0c 10 30 e1 18 7b 4a 06 | f0 00 0c 8a e1 59 03 ff |..0..{J.|.....Y..|
|00005170| ff ff ff c1 ff ff ff ff | ff ff fe 10 02 89 10 30 |........|.......0|
|00005180| e1 18 3e 4a 03 e0 00 0c | 8b e1 19 67 2a 07 20 02 |..>J....|...g*. .|
|00005190| 8a e1 19 10 1b 40 02 e1 | 19 0c 2a 01 80 02 89 10 |.....@..|..*.....|
|000051a0| 30 e2 16 0c a8 85 8c 10 | 20 e2 16 02 85 00 00 00 |0.......| .......|
|000051b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051c0| 00 00 08 00 50 41 47 45 | 00 00 09 72 00 00 00 00 |....PAGE|...r....|
|000051d0| 00 00 08 0d 20 00 01 75 | 00 00 0b a9 40 00 00 00 |.... ..u|....@...|
|000051e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000056a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000056b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000056c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000056d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000056e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000056f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000057a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000057b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000057c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000057d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000057e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000057f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000058a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000058b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000058c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000058d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000058e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000058f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059c0| 00 00 00 80 4c 49 53 54 | 00 00 08 0d 00 00 00 00 |....LIST|........|
|000059d0| 00 00 00 01 00 00 08 00 | 00 00 00 01 00 10 00 02 |........|........|
|000059e0| 00 03 00 04 40 00 01 2f | 00 00 00 01 00 00 00 00 |....@../|........|
|000059f0| 00 00 09 72 00 01 00 00 | 00 00 00 00 00 00 00 00 |...r....|........|
|00005a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a40| 00 00 02 80 46 52 45 45 | 00 00 00 00 00 00 00 00 |....FREE|........|
|00005a50| 0f 46 72 65 65 20 4f 62 | 6a 65 63 74 20 20 20 20 |.Free Ob|ject    |
|00005a60| 00 00 00 00 00 00 00 00 | 00 2b 00 55 00 6b 01 2c |........|.+.U.k.,|
|00005a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 ac |........|........|
|00005a80| 12 04 e1 0d bf 81 a4 81 | 8c e1 11 02 1a 01 03 8a |........|........|
|00005a90| e1 11 0c 2a 01 80 02 e1 | 11 10 1b 40 02 89 e1 11 |...*....|...@....|
|00005aa0| 3e 2a 03 e0 02 8b e1 11 | 67 2a 07 20 02 89 e1 11 |>*......|g*. ....|
|00005ab0| 7b 2a 06 f0 02 e1 11 72 | 2a 02 70 02 e1 11 74 2a |{*.....r|*.p...t*|
|00005ac0| 01 70 02 85 8a e1 45 01 | e0 03 18 07 e1 35 02 d0 |.p....E.|.....5..|
|00005ad0| 03 08 e1 36 03 33 24 07 | e1 18 24 07 a4 85 e1 45 |...6.3$.|..$....E|
|00005ae0| 02 d2 c0 14 07 89 e1 11 | 74 14 30 25 01 70 02 e1 |........|t.0%.p..|
|00005af0| 11 74 2a 01 70 02 85 e1 | 11 72 2a 02 70 02 e1 11 |.t*.p...|.r*.p...|
|00005b00| 7b 2a 06 f0 02 8c e1 21 | 44 80 29 04 90 02 89 e1 |{*.....!|D.).....|
|00005b10| 11 3e 2a 03 e0 02 8b e1 | 11 67 2a 07 20 02 8a e1 |.>*.....|.g*. ...|
|00005b20| 11 10 1b 40 02 e1 11 0c | 2a 01 80 02 00 00 00 00 |...@....|*.......|
|00005b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b40| 00 00 01 e0 46 52 45 45 | 00 00 00 00 00 00 00 00 |....FREE|........|
|00005b50| 0f 46 72 65 65 20 4f 62 | 6a 65 63 74 20 20 20 20 |.Free Ob|ject    |
|00005b60| 0c 89 10 30 1e 0c a4 85 | 8a 44 01 10 20 06 32 40 |...0....|.D.. .2@|
|00005b70| 08 20 03 44 01 00 20 04 | 14 20 03 80 30 03 12 59 |. .D.. .|. ..0..Y|
|00005b80| 83 38 63 02 31 8c e6 38 | 63 80 00 0c 80 30 04 92 |.8c.1..8|c....0..|
|00005b90| 62 41 10 24 82 4a 52 49 | 48 22 40 00 0c 21 07 80 |bA.$.JRI|H"@..!..|
|00005ba0| c1 21 80 00 07 80 00 5c | 06 05 21 03 80 c1 01 c0 |.!.....\|..!.....|
|00005bb0| 00 03 80 00 1c 07 05 11 | 04 32 40 00 04 22 40 01 |........|.2@.."@.|
|00005bc0| 05 31 07 9c 03 c1 c0 18 | 07 80 7b dc 6f 70 04 89 |.1......|..{.op..|
|00005bd0| 10 30 1e 0c a4 85 8a 21 | 02 20 34 0c 18 20 06 27 |.0.....!|. 4.. .'|
|00005be0| 1c 10 07 41 05 18 c0 c6 | c1 3b 18 29 80 c6 2c 18 |...A....|.;.)..,.|
|00005bf0| c0 03 8b 32 05 21 29 c1 | 24 a4 02 41 09 30 25 20 |...2.!).|$..A.0% |
|00005c00| 03 8a 43 c1 ee 00 18 42 | 06 10 39 e0 03 8b 13 21 |..C....B|..9....!|
|00005c10| 12 04 32 01 10 01 04 8a | 13 21 12 04 32 01 00 01 |..2.....|.!..2...|
|00005c20| 04 41 03 01 e1 ee c1 00 | 3c 03 c1 cf 00 39 e0 03 |.A......|<....9..|
|00005c30| 89 10 30 1e 0c a4 85 8a | 31 03 80 10 13 10 08 21 |..0.....|1......!|
|00005c40| 07 c0 0d 62 0e 38 c6 31 | 27 28 08 62 07 01 ef 78 |...b.8.1|'(.b...x|
|00005c50| 03 a8 08 23 6c 21 0b 13 | 38 0c 23 38 21 0b 71 07 |...#l!..|8.#8!.q.|
|00005c60| c0 01 ef 79 c0 19 08 89 | 10 30 1e 0c ac 85 8c 30 |...y....|.0.....0|
|00005c70| 28 00 08 3a 04 00 0a 8a | 12 30 1a 06 02 12 40 1a |(..:....|.0....@.|
|00005c80| 01 02 89 30 30 00 f8 3a | 0f 80 0c 8b 12 9c 3a 1c |...00..:|......:.|
|00005c90| 80 00 89 30 30 01 ec 3a | 1b c0 0c 8a 12 24 1a 12 |...00..:|.....$..|
|00005ca0| 02 12 18 1a 0c 02 85 46 | 07 80 0c 60 06 36 0b 40 |.......F|...`.6.@|
|00005cb0| 0c 07 37 0c cc 90 06 19 | 90 06 a4 85 46 0b 4b 00 |..7.....|....F.K.|
|00005cc0| 00 00 00 20 53 54 42 4c | 00 00 0c 6a 00 00 00 00 |... STBL|...j....|
|00005cd0| 00 00 00 00 00 00 00 01 | 00 00 00 00 00 00 00 00 |........|........|
|00005ce0| 00 00 00 40 46 54 42 4c | 00 00 0d 7e 00 00 00 00 |...@FTBL|...~....|
|00005cf0| 00 00 00 01 00 00 00 00 | 00 00 43 68 69 63 61 67 |........|..Chicag|
|00005d00| 6f 00 4e ad 0d e2 be 6d | 00 14 c5 80 3f 07 4e ad |o.N....m|....?.N.|
|00005d10| 2b 6a 10 2d b6 32 67 08 | 2b 6d af d6 b6 26 60 06 |+j.-.2g.|+m...&`.|
|00005d20| 00 00 00 e0 43 41 52 44 | 00 00 0b a9 00 00 00 00 |....CARD|........|
|00005d30| 00 00 0e 2c 00 00 00 00 | 00 00 00 00 00 00 00 00 |...,....|........|
|00005d40| 00 00 09 72 00 00 0a 41 | 00 01 00 01 00 00 00 50 |...r...A|.......P|
|00005d50| 00 00 00 00 00 00 00 50 | 00 01 01 00 00 53 00 cd |.......P|.....S..|
|00005d60| 00 67 01 28 20 00 00 00 | 00 00 00 01 00 00 00 0c |.g.( ...|........|
|00005d70| 00 00 00 10 00 00 6f 6e | 20 6d 6f 75 73 65 55 70 |......on| mouseUp|
|00005d80| 0d 64 6f 4d 65 6e 75 20 | 22 51 75 69 74 20 48 79 |.doMenu |"Quit Hy|
|00005d90| 70 65 72 43 61 72 64 22 | 0d 65 6e 64 20 6d 6f 75 |perCard"|.end mou|
|00005da0| 73 65 55 70 00 00 00 00 | 00 00 00 00 00 00 ff ff |seUp....|........|
|00005db0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00005dc0| 00 00 00 00 00 00 00 00 | 00 00 00 40 00 52 7f c0 |........|...@.R..|
|00005dd0| 00 0b 00 47 00 81 00 57 | 6a 48 ff ff ff ff 08 50 |...G...W|jH.....P|
|00005de0| 61 74 74 65 72 6e 73 00 | 00 00 00 20 00 52 7f c0 |atterns.|... .R..|
|00005df0| 00 0b 00 00 00 00 00 0f | cd bc ff ff ff ff 08 50 |........|.......P|
|00005e00| 00 00 02 60 42 4b 47 44 | 00 00 0a 41 00 00 00 00 |...`BKGD|...A....|
|00005e10| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 0a 41 |........|.......A|
|00005e20| 00 00 0a 41 00 00 00 00 | 00 00 00 00 00 00 00 00 |...A....|........|
|00005e30| 00 00 00 6f 6e 20 6f 70 | 65 6e 53 74 61 63 6b 0d |...on op|enStack.|
|00005e40| 69 66 20 74 68 65 20 6f | 70 74 69 6f 6e 4b 65 79 |if the o|ptionKey|
|00005e50| 20 69 73 20 75 70 20 74 | 68 65 6e 0d 73 65 74 20 | is up t|hen.set |
|00005e60| 74 68 65 20 75 73 65 72 | 4c 65 76 65 6c 20 74 6f |the user|Level to|
|00005e70| 20 31 0d 65 6e 64 20 69 | 66 0d 64 65 6c 65 74 65 | 1.end i|f.delete|
|00005e80| 20 6d 65 6e 75 20 67 6f | 0d 64 65 6c 65 74 65 20 | menu go|.delete |
|00005e90| 6d 65 6e 75 20 65 64 69 | 74 0d 70 75 74 20 22 51 |menu edi|t.put "Q|
|00005ea0| 75 69 74 22 20 69 6e 74 | 6f 20 6d 65 6e 75 20 22 |uit" int|o menu "|
|00005eb0| 46 69 6c 65 22 20 77 69 | 74 68 20 6d 65 6e 75 4d |File" wi|th menuM|
|00005ec0| 73 67 20 22 64 6f 4d 65 | 6e 75 20 71 75 69 74 20 |sg "doMe|nu quit |
|00005ed0| 68 79 70 65 72 43 61 72 | 64 22 0d 73 65 74 20 63 |hyperCar|d".set c|
|00005ee0| 6f 6d 6d 61 6e 64 43 68 | 61 72 20 6f 66 20 6d 65 |ommandCh|ar of me|
|00005ef0| 6e 75 49 74 65 6d 20 22 | 51 75 69 74 22 20 6f 66 |nuItem "|Quit" of|
|00005f00| 20 6d 65 6e 75 20 22 46 | 69 6c 65 22 20 74 6f 20 | menu "F|ile" to |
|00005f10| 22 51 22 0d 65 6e 64 20 | 6f 70 65 6e 53 74 61 63 |"Q".end |openStac|
|00005f20| 6b 0d 0d 6f 6e 20 75 6c | 35 0d 73 65 74 20 74 68 |k..on ul|5.set th|
|00005f30| 65 20 75 73 65 72 4c 65 | 76 65 6c 20 74 6f 20 35 |e userLe|vel to 5|
|00005f40| 0d 65 6e 64 20 75 6c 35 | 00 6c 35 00 00 00 00 00 |.end ul5|.l5.....|
|00005f50| 00 00 00 00 00 4e 5e 20 | 5f 50 4f 50 70 00 29 40 |.....N^ |_POPp.)@|
|00005f60| 00 54 39 7c 00 69 00 4c | 2f 2c 00 48 20 5f 4e 90 |.T9|.i.L|/,.H _N.|
|00005f70| 28 5f 4e 5e 20 5f 50 4f | 4e d0 4e 56 00 00 2f 0c |(_N^ _PO|N.NV../.|
|00005f80| 28 6e 00 08 39 7c 00 23 | 00 4c 2f 2c 00 48 20 5f |(n..9|.#|.L/,.H _|
|00005f90| 4e 90 2d 6c 00 70 00 0c | 28 5f 4e 5e 2e 9f 4e 75 |N.-l.p..|(_N^..Nu|
|00005fa0| 4e 56 00 00 2f 0c 28 6e | 00 10 29 6e 00 0c 00 50 |NV../.(n|..)n...P|
|00005fb0| 29 6e 00 08 00 54 39 7c | 00 21 00 4c 2f 2c 00 48 |)n...T9||.!.L/,.H|
|00005fc0| 00 57 00 00 0b 53 61 76 | 65 20 53 63 72 69 70 74 |.W...Sav|e Script|
|00005fd0| 00 53 00 00 0f 52 65 76 | 65 72 74 20 74 6f 20 53 |.S...Rev|ert to S|
|00005fe0| 61 76 65 64 00 00 00 00 | 0c 50 72 69 6e 74 20 53 |aved....|.Print S|
|00005ff0| 63 72 69 70 74 00 50 00 | 00 01 2d 00 00 00 00 0e |cript.P.|..-.....|
|00006000| 51 75 69 74 20 48 79 70 | 65 72 43 61 72 64 00 51 |Quit Hyp|erCard.Q|
|00006010| 00 00 00 1a 20 6c 00 0e | 8e 00 00 20 00 04 e7 30 |.... l..|... ...0|
|00006020| 00 0a 80 01 80 01 7f ff | 7f ff 4e ba f9 5a 20 6e |........|..N..Z n|
|00006030| 00 08 2c 48 4e fa 03 18 | 8b 00 00 70 00 04 e6 d0 |..,HN...|...p....|
|00006040| fb a4 60 00 00 a4 10 2e | fd c4 0a 00 00 01 1d 40 |..`.....|.......@|
|00006050| fd c4 2f 2e ff fc 3f 3c | 00 12 1f 2e fd c4 4e ad |../...?<|......N.|
|00006060| 00 00 00 20 54 41 49 4c | ff ff ff ff 00 00 00 00 |... TAIL|........|
|00006070| 0f 4e 75 20 8a 72 20 64 | 65 74 20 73 6c 75 74 c9 |.Nu .r d|et slut.|
|00006080| 00 00 01 00 00 01 98 d0 | 00 01 97 d0 00 00 03 97 |........|........|
|00006090| 00 00 00 2c 05 41 6c 64 | 75 73 00 00 07 41 05 41 |...,.Ald|us...A.A|
|000060a0| 6c 64 75 73 0d 00 00 00 | 00 2d 07 41 67 65 6e 74 |ldus....|.-.Agent|
|000060b0| 08 4f 41 20 42 72 61 69 | 6e 00 02 00 00 00 4f 41 |.OA Brai|n.....OA|
|000060c0| 61 72 57 43 6f 61 01 00 | 00 34 00 8a 00 00 00 00 |arWCoa..|.4......|
|000060d0| 00 00 4f 41 61 72 57 43 | 6f 61 01 00 00 34 00 8a |..OAarWC|oa...4..|
|000060e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000060f0| 00 00 a9 45 b8 ac 00 00 | 60 00 00 01 9c 67 72 69 |...E....|`....gri|
|00006100| 42 6f 6c 00 0e 00 00 00 | 00 68 08 43 6f 75 72 69 |Bol.....|.h.Couri|
|00006110| 4f 62 6c 2e 00 00 07 9d | 08 43 6f 75 72 69 4f 62 |Obl.....|.CouriOb|
|00006120| 6c 00 0b 00 00 00 00 68 | 05 48 65 6c 76 65 00 00 |l......h|.Helve..|
|00006130| 07 a2 05 48 65 6c 76 65 | 0e 00 00 00 00 68 08 48 |...Helve|.....h.H|
|00006140| 65 6c 76 65 4f 62 6c 50 | 00 00 07 a4 08 48 65 6c |elveOblP|.....Hel|
|00006150| 76 65 4f 62 6c 00 0e 00 | 00 00 00 68 08 54 69 6d |veObl...|...h.Tim|
|00006160| 65 73 42 6f 6c 2e 00 00 | 07 b3 08 54 69 6d 65 73 |esBol...|...Times|
|00006170| 42 6f 6c 00 0e 00 00 00 | 00 68 08 54 69 6d 65 73 |Bol.....|.h.Times|
|00006180| 00 00 2e 04 4e 56 00 00 | 2f 2e 00 08 4e ba 19 7c |....NV..|/...N..||
|00006190| 4e 5e 2e 9f 4e 75 4e 56 | 00 00 2f 0c 28 6e 00 08 |N^..NuNV|../.(n..|
|000061a0| 4a ac ff fc 67 10 2f 2c | ff fc 20 5f a0 2a 2f 2c |J...g./,|.. _.*/,|
|000061b0| ff fc 20 5f a0 23 4a ac | ff f8 67 10 2f 2c ff f8 |.. _.#J.|..g./,..|
|000061c0| 20 5f a0 2a 2f 2c ff f8 | 20 5f a0 23 4a ac fe de | _.*/,..| _.#J...|
|000061d0| 67 10 2f 2c fe de 20 5f | a0 2a 2f 2c fe de 20 5f |g./,.. _|.*/,.. _|
|000061e0| a0 23 2f 2c fb a2 20 5f | a0 2a 4a ac fe d4 67 08 |.#/,.. _|.*J...g.|
|000061f0| 2f 2c fe d4 20 5f a0 23 | 28 5f 4e 5e 2e 9f 4e 75 |/,.. _.#|(_N^..Nu|
|00006200| 4e 56 ff fc 48 e7 00 18 | 28 6e 00 08 42 a7 70 01 |NV..H...|(n..B.p.|
|00006210| 2f 00 4e ba 22 aa 26 5f | 20 53 42 10 2f 2c 00 08 |/.N.".&_| SB./,..|
|00006220| 48 7a 00 32 2f 0b 4e ba | 27 1c 2f 2c 00 08 48 7a |Hz.2/.N.|'./,..Hz|
|00006230| 00 18 2f 0b 4e ba 27 0e | 2f 0b 20 5f a0 23 4c df |../.N.'.|/. _.#L.|
|00006240| 18 00 4e 5e 2e 9f 4e 75 | 0b 46 75 6c 6c 53 6f 72 |..N^..Nu|.FullSor|
|00006250| 74 53 65 70 0c 46 75 6c | 6c 53 6f 72 74 4c 69 73 |tSep.Ful|lSortLis|
|00006260| 74 00 4e 56 fe 00 2f 0c | 20 6e 00 0c 43 ee ff 00 |t.NV../.| n..C...|
|00006270| 70 3f 22 d8 51 c8 ff fc | 28 6e 00 08 2f 2e 00 08 |p?".Q...|(n../...|
|00006280| 4e ba ff 14 2f 2e 00 08 | 4e ba ff 76 4a ac fb a6 |N.../...|N..vJ...|
|00006290| 67 08 2f 2c fb a6 20 5f | a0 23 20 6c 00 08 2f 08 |g./,.. _|.# l../.|
|000062a0| 42 a7 2f 2c 00 08 2f 08 | 48 7a 00 3a 48 6e ff 00 |B./,../.|Hz.:Hn..|
|000062b0| 48 6e fe 00 3f 3c 00 02 | 4e ba 24 9e 20 5f 48 6e |Hn..?<..|N.$. _Hn|
|000062c0| fe 00 4e ba 27 90 20 1f | 20 5f 21 40 00 42 20 6e |..N.'. .| _!@.B n|
|000062d0| 00 08 2c 48 4e fa 20 da | 00 00 28 5f 4e 5e 20 5f |..,HN. .|..(_N^ _|
|000062e0| 50 4f 4e d0 08 45 72 72 | 6f 72 20 3a 20 00 4e 56 |PON..Err|or : .NV|
|000062f0| fe 00 1d 6e 00 0f fe 00 | 2f 2e 00 14 48 6e fe 01 |...n....|/...Hn..|
|00006300| 30 2e 00 0e 48 c0 2f 00 | 4e ba 21 d6 1d 6e 00 0d |0...H./.|N.!..n..|
|00006310| ff 00 2f 2e 00 10 48 6e | ff 01 30 2e 00 0c 48 c0 |../...Hn|..0...H.|
|00006320| 2f 00 4e ba 21 bc 70 55 | 20 6e 00 08 20 68 00 08 |/.N.!.pU| n.. h..|
|00006330| b0 68 ff e8 66 16 42 67 | 48 6e fe 00 48 6e ff 00 |.h..f.Bg|Hn..Hn..|
|00006340| 42 a7 4e ba 21 e6 3d 5f | 00 18 60 34 48 6e fe 00 |B.N.!.=_|..`4Hn..|
|00006350| 48 6e ff 00 4e ba 24 e2 | 10 1f 67 06 42 6e 00 18 |Hn..N.$.|..g.Bn..|
|00006360| 60 1e 48 6e fe 00 48 6e | ff 00 4e ba 24 fc 10 1f |`.Hn..Hn|..N.$...|
|00006370| 67 08 3d 7c ff ff 00 18 | 60 06 3d 7c 00 01 00 18 |g.=|....|`.=|....|
|00006380| 4e 5e 20 5f de fc 00 10 | 4e d0 4e 56 ff e8 48 e7 |N^ _....|N.NV..H.|
|00006390| 03 18 26 6e 00 08 22 4b | 22 69 00 08 20 69 ff fc |..&n.."K|"i.. i..|
|000063a0| 20 50 30 2b ff fc 48 c0 | 2f 00 2f 3c 00 00 00 12 | P0+..H.|/./<....|
|000063b0| 4e ba 21 f0 20 1f 49 f0 | 08 00 30 14 b0 6b ff ea |N.!. .I.|..0..k..|
|000063c0| 5d c0 4a 00 67 12 72 41 | 20 6e 00 08 20 68 00 08 |].J.g.rA| n.. h..|
|000063d0| b2 68 ff e6 57 c1 c0 01 | 66 20 32 14 b2 6b ff ea |.h..W...|f 2..k..|
|000063e0| 5e c1 4a 01 67 12 74 44 | 20 6e 00 08 20 68 00 08 |^.J.g.tD| n.. h..|
|000063f0| b4 68 ff e6 57 c2 c2 02 | 80 01 44 00 1c 00 20 6e |.h..W...|..D... n|
+--------+-------------------------+-------------------------+--------+--------+